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SUMMARY 


An approximate method for calculating the longitudinal and torsional 
natural frequencies and associated modal data of a beamlike, variable cross 
section multibranch structure is presented in this paper. 

Natural vibration characteristics of systems having discontinuous 
^physical properties are usually most conveniently solved by means of the 
digital computer. The procedure described in this paper is the numerical 
integration of the first order differential equations that characterize 
the beam element in longitudinal motion and that satisfy the appropriate 
boundary conditions. 

Numerical examples included in this paper are an application to a solid 
fuel launch vehicle and an idealized beam. A complete description and 
discussion of the computer program is also provided. 
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INTHODUCTION 


It is often necessary to determine the longitudinal and/or torsional 
natural frequencies and related modal data of structures since they provide 
basic dynamic information. Typical structures which require knowledge of 
the longitudinal or torsional vibration characteristics include piles, 
^turbines, machine shafts, bridges, and towers. Natural mode characteristics 
are also a valuable tool in analyzing the responses of a structure due to 
disturbing forces. 

In all but the most elementary beams, approximate methods must be uti- 
lized to determine the longitudinal or torsional natural frequencies. There 
are numerous references of approximate methods to calculate the longitudinal 
natural frequencies for variable cross section beams (see references 1, 

2, and 3). However, there is a scarcity of available references to 
calculate the longitudinal frequencies of branched beams; in particular 
when the branches are partially constrained to the main member. 

The purpose of this paper is to present an approximate method for the 
calculation of the longitudinal natural frequencies and mode shapes for a 
variable cross section, multibranch beam. This method is derived for the 
general case in which four arbitrary members intersect at a joint. Also, 
the branches may be fully or partially constrained to the main member. 

The calculation of the longitudinal natural frequencies for a 

variable cross section beam has been treated by both a stiffness and 

flexibility matrix approach (references 1 and U). In the stiffness matrix 

approach, the beam is idealized as a number of point masses connected by 

springs. The simultaneous equations of harmonic motion for the point masses 

when written in matrix notation, yield an eigenvalue problem which is 
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solvable by standard methods . 

One disadvantage of both the flexibility and stiffness matrix methods 
is that considerable time may be spent averaging the properties. Another 
disadvantage is that it may require the storage of very large matrices in 
the computer. In fact, for some cases, the number of masses required for 
accuracy may be greater than the computer storage capability. 

The method presented in this paper utilizes a finite difference approach. 
The station properties are computed from one end of the beam to the other 
by numerical integration. This offers an important advantage for continuous 
structures. Through a recurrence equation, a very large number of stations 
may be utilized without storing a large matrix in the computer. 
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SYMBOLS 


A(x) 

A 

B 

E(x) 

* G(x) 
Ip(x) 
J(x) 

L 

m(x) 

N 

P(x) 

T(x) 

t 

V 

U(s,n) 

U 

w 

X 

X 

n 

Ax 
n , 

Y 

n 

Y(s,n) 


2 2 

stressed cross-sectional area, inch (meter ) 
matrix (see equation (10)) 
matrix (see equation (19)) 

2 2 

modulus of elasticity, pounds /inch (newton /meter ) 

2 2 

modulus of shear, pound/inch (newton/meter ) 

2 2 

polar mass moment of inertia, pound-second (newton - second ) 

4 4 

polar moment of inertia, inch (meters ) 

overall length of main beam (see sketch 11) 

2 2 
. ^ pound - second /newton - second x 

mass per unit length, £ 2 C 2 ) 

inch meter 

total number of structural members 

axial force, pounds (newtons) 

torque, inch-pounds (meter-newtons) 

time, sec. 

modal displacement in the axial direction, inches (meters) 

modal deflection of the nth integration station of the sth 
member, inches (meters) 

2 

modal acceleration in the axial direction, inches /second 
2 

(meters /second ) 
matrix (see equation (8)) 

longitudinal coordinate along beam centerline, inches (meters) 

longitudinal coordinate at the nth integration station, 
inches (meters) 

increment in recurrence solution, x n +l _x n » i nc ^es (meters) 
matrix (see equation (15)) 

the state vector at the nth integration station of the 
sth member 


h 



Y’(s,n) 

Z 

a(s) 

3(s) 

n 

Y(<d) 

C(x) 

e(x,t) 

00 

i 

j 

k 

l 

s 

r(i) 

r(j) 

r(k) 

r(Jl) 

r(s) 

{ > 

[ ] 

LJ 

HJ 


the X derivative of Y(s,n), (s,n) 

the combination of all the state vectors at the boundary 

translational flexibility constant between members s and i, 
inch/pounds (meter/newtons) 

spring constant between member s and ground, pounds/inch 
(newtons /meter) 

constant (see equation (54)) 

matrix (see equation (37)) 

amplitude of mode shape, unit less 

cross-section rotation (radians) 

circular frequency 

Subscripts 

index denoting the ith beam or branch 

index denoting the jth beam or branch 

index denoting the kth branch 

index denoting the fi-th branch 

index denoting a general beam or branch 

rth station of the ith beam or branch 

rth station of the jth beam or branch 

rth station of the kth branch 

rth station of the Zth branch 

rth station of the sth beam or branch 
Matrix notation 

column matrix 

square or rectangular matrix 
row matrix 
identity matrix 
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ANALYSIS 


Two first order differential equations are developed for a team element 
in longitudinal motion. The two equations are the elastic equation which 
relates the displacement function to the axial force and axial stiffness and 
the dynamic equation (D’Alembert’s Principle) in which the inertial forces 
.are equated to the applied forces. These equations can he put in matrix 
notation and integrated along the beam by a numerical procedure. 

Each end of a beam is considered a joint. A method is developed for 
determining the boundary value equations at each joint. By combining all 
boundary value equations into products of a coefficient and station property 
matrix, it is demonstrated how the natural frequencies and corresponding mode 
shapes can be calculated. The derivations are based on one dimensional 
beam theory; therefore to apply this method to structures for which one 
dimensional beam theory is not applicable, one must proceed with 
reservations. 
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Derivation of Equations for a Single Beam 
Undergoing Longitudinal Motion 



Variable cross section beam. 

Sketch 1. 

Consider a general non-uniform beam of sketch 1 which is vibrating in the 
longitudinal direction. If an element of width dx is removed from the 
beam then we have the following inertial and applied forces of sketch 2. 
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m(x)U (x,t)dx 



P(x) + 3P. 


Beam element in longitudinal motion. 
Sketch 2 . 


Summing forces we get 

P(x ) + _|l x > dx _ p( x) _ m ( x ) 0 ( Xjt ) cbc = 0 (1) 

3P(x) 

3x = m(x) U (x,t) (2) 

Assuming that the element vibrates in simple harmonic motion of frequency 
0) and amplitude C(x), then, U(x,t) = ?(x)e iWt or 

U (x,t) = -w 2 U (x,t) (3) 

Substituting equation (3) into equation (2), the equation of longitudinal 
motion for the beam element becomes 
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(x) = -m (x) to 2 U (x,t) 


(k) 


From elementary heam theory the equation relating the displacement function 
to the axial force and axial stiffness is 


M (x) = _ P-U) 

3x {x) A(x)e(x) 


(5) 


If the team is assumed to vibrate longitudinally in simple harmonic motion 
then we can characterize the axial force and displacement as 


P(x,t) = P(x)e itlVt 
U(x,t ) = U(x)e ivt 

where i = / -1 

Equation (h) and (5) can be written in matrix notation as 


( 6 ) 


dL j p | _ fo -mw 2 l jp[ 

dx juj (_1/AE 0 J Juj 


( 7 ) 


or 


{Y ' (x ) } = [V(x)]{Y(x)> 


(8) 


where 


vi = <?Ik2 

dx 


and Y(x) 


? . 
U 


(9) 
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Method of Integration 


We can integrate this matrix along the beam by a variety of numerical 
procedures. For example, the second order Runge-Kutta integration of this 
matrix is given by the following 

{Y n+ i> = {Y n > + | [{1^} + (k 2 )] (10) 

where itj = {Y(x n ) > and Ax n “ x n + i " x n 

{k n } = Ax [Wl {Y } (11) 

i n n n 

(k } = Ax [W ][{Y } + (k >] (12) 

2 n n+1 n 1 

Replacing the k vectors leads to 


' W * t A 1 {Y „> 


(13) 


The transfer matrix has the form 


'V 


Ax Ax 2 

= [ ^i — ] + -rr [ fw .. ] + (w ]] + — [w )[w ] 

^ 2 n+1 n 2 n+1 n 


(14) 


Combining these matrices, A becomes 


[ A] = 


1 - 


2 A 2 

» oil) Ax 
n+1 n_ 

2 A E 
n n 


Ax 

~2 


k/_i 

l A E A E J 

\ n+1 n+1 n n/ 


p 

- (m . , + m ) Ax to 
n+1 n n 


1 - 


,2 2 
m co Ax 
n n_ 

2A 

n+1 n+1 


(15) 
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Therefore (13) may he written as: 


<W - 


; u v 1 


a 21 a 22 


<V 


(16) 


Derivation of Member Influence Matrix 


The member influence matrix relates the right end boundary conditions 
to the left end boundary conditions. For example, in sketch 3, the left 
end boundary conditions are P(s,l) and U(s,l) and the right end boundary 
conditions are P(s,r(s)) and U(s,r(s)). 

P(s,r) 

U(8,r) 

Left end ” ' Ri « ht end 

Sta. 1 Sta * r 

Typical structural member. 

Sketch 3. 


P(s,l) 

U(b,1) 


The right end boundary conditions can be related to the left boundary 
conditions by the influence matrix [ B ] and takes the form of 


' P( s ,r ( s) ) 


'F(s.l) ' 


; = [b( s ) ] ■ 


U(s,r (si) 


u(s,D) 


(IT) 
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Ths member influence matrix [B(s)] is computed by means of successive 
multiplication of the previously developed interval transfer matrix, 
[A(s)]. For the typical member of sketch 3 


/ P ( s , n+1 ) 

= [A(s,n)] 

/P(s,n) 

( U(s,n+l) 


I U(s,n) 


( 18 ) 


Each interval transfer matrix relates the station properties at the two 
ends of an interval. For example, again referring to sketch 3 

[B(s)j = [A( s , (r ( s )-l ) ) ] [A(s, (r(s)-2) ) ] . . . [A(s,l)) 


Elements of the interval transfer matrix are functions of the frequency and 
physical characteristics which mark the boundary of the interval. Equation 
(17) can now be written in terms of the state vector for the sth beam with 
integrating stations n = 1 to n = r(s). 

(Y(s,(r(s))} = [B(s)J {Y(s,l)> (20 


12 



Derivation of the Boundary Equations of a Joint 
Having from One to Four Structural Members 



Typical joint of a multibranch beam. 

Sketch 1*. 

A multibranch beam can be considered as a truss-like structure which 
consists of several members tied together by a series of joints. At each 
joint the boundary values must satisfy a set of equilibrium and compatibility 
equations. 

A general, set of boundary equations is derived for four arbitrary 
members which are designated by the indices i, j, k, and A (see sketch It). 
The joint ^represent at ion allows for a general flexibility constraint between 
the members i or j and each of the other members. Also included are 
provisions for a general elastic constraint between members i or j and an 
external ground. A ground constraint can be placed on member j only when 
member i does not exist. 
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Equilibrium equation.- If the Joint in sketch It is removed, and a freebody 
diagram is made of the axial forces 



Freebody diagram of axial forces on Joint. 

Sketch 5. 

The equilibrium equation for all the forces acting in the longitudinal 
direction is 

P(i,r(i) ) + P(k,r(k) ) + B(i) U(i,r(i)) - P(Jt,l) - P(j,l) = 0 (21) 

Equation (21) is derived on the assumption that four members are present y 
however this equation is valid for less than four members at the joint. 

Also the joint may be free of the ground constraint by setting 3(i) equal 
to zero. Then equation (21) may be rewritten as 

P(i,r(i)) + 6(k) P(k,r(k) ) + B(i) U(i,r(i)) - 6(£) P(Jl,l) - 6(j) P(j,l) = 0 

(22) 
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where 


for 


6( ) = 0 for ( ) = 0 

<S( ) = 1 for ( ) 4 0 

and i, j, k, or 1=0 if not present at joint 

In the special care where member i is not present then the 

equilibrium equation is 


. e(j)u(j,D- p(j,i)> -o \ 

A freebody diagram of the axial forces on the joint of sketch 4 when members 
i, k, and 1 are absent is illustrated in sketch 6 . 



P(j,D 

*. 


Ground 


Freebody diagram of axial forces on joint with member i missing. 

Sketch 6. 


Compatability equations.- There is a compatibility relationship between the 
main member (i or j) and each branch member. The compatibility equations 
are derived on the assumption that there is no relative displacement between 
members at a Joint except through spring deformations. 
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Compatibility relationship with member i and j present. 

Sketch 7. 

U(i,r(i)) + «(J) P(J,1) - U( j ,1) = 0 (24) 



Compatibility relationship with members i and . i present. 

Sketch 8. 


16 



U(i,r(i) ) + aUJ P(A,1) - UU.l) = 0 


(25) 


P(k ,r(k) ) 


k 


Jstyi 

f — *~ 

1 U(i,r(i) 

%(k,r(k)) 

1 - > 


Compatibility relationship with members i and k present. 

Sketch 9- 


U(i, r (i) ) - a(k)P(k, r (k) ) - U(k, r(k)) 


(26) 


The state, vector (equation 9) can be put in the form 


{Y( i ,r ( s ) ) } 


P( 1 ,r( s ) ) 
U(i,r(s) ) 


(27) 


Utilizing (27), the equilibrium equations (22) and (23) can be combined 
to give 
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<S ( i ) L 1 e(l)j{Y(i,r(i))> - 6(j)U (6(1) - 1) B(J)J{Y(J,1)> 

+ 6(1) 6(k)ll Oj{Y(k,r(k))} - 6(1) 6(1)11 Oj{Y(l,l)} = 0 (28) 

The three compatibility equations, (2U) through (26), can be written as a 
function of the state vector. 

6(i)6(J)lO lJ{Y(i,r(i))> - 6(1)6 (j)L-o(J ) lJ(Y(j,l)} = 0 (29) 

6(i)6(k)L0 1 J { Y ( i ,r( i ) ) } - 6(i)6(k)la(k) 1 j (Y(k) ,r(k) > = 0 (30) 

6(1)6(1)10 1 J {y( i ,r( i ) ) } - 6(i)6(l)l-a(l) lJ{YU,l)> = 0 (31) 

From equation (20), we have the relationship for the sth beam at the last 
integration station to the sth beam at the first integration station. 

{Y(s,r(s)))= [B( s ) ] {Y( s ,1 ) } (32) 

By substituting equation (32) into equations (28), thru (31) the final form 
of the four boundary value equations is obtained. 
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6(i)ll B(i)J[B(i)]{Y(i,l)} - 6(J)L1 (6(1) - 1) B(j)J{Y(j,l)> 


+ 6(l)6(k)Ll Oj[B(k)J{Y(k,l)} - 6(1)601)11 0j{Y(Jt,l)> = 0 (33) 

6(i)6(J)lO lJ[B(l)]{Y(i,l)> - 6(i)6(J)l-o(J) 1J{Y(J,1)> * 0 (3U) 

6 ( i ) 6 ( X) L 0 lJ[B(i)]{Y(i,l)> - 6(i)6(k)l<x(k) 1J [B(k)]{Y(k,l)) = 0 (35) 

6(1)6(4)10 lJ[B(i)]{Y(i,l)} - 6(i)6(4)l-aOO 1J{Y(A,1)} = 0 (36) 

When applying these boundary value equations to a particular Joint, any 
member and it's respective equation can be left out by setting it's index 
equal to zero. There are more unknowns than there are equations at each 
Joint. The boundary values at each Joint can only be found by solving all 
of the equations simultaneously. The complete set of boundary value 
equations for the structure can therefore be written collectively as a 
product of the beam boundary conditions column matrix and the coefficient 
square matrix. 

tY(u)]{z} = 0 (37) 

Calculation of the Natural Frequencies 
The nontrivial solution to equation (37) requires the vanishing of the 
coefficient determinant 


[y(w)l - o 


(38) 
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The expansion of the determinant of (38) yields the characteristic equation 
which is polynomial in to. It is necessary to conduct a trial search by 
successive approximation of the eigenvalue to to find the characteristic 
roots (or natural frequencies) which satisfy eq. (38). 

For each characteristic root of equation (38) there is a corresponding 
eigenvector (Z) where 


(Z> 


Y(l,l) 

i 

!y(N,1) 


(39) 


where 


{Y(s,n)} 


F(s»n) 

U(s,n) 


(UO) 


The value of {z} can be determined by setting an arbitrary non-zero element 

of Y(l,l)» equal to unity aid solving for the remaining elements in terms 

of the unit element from (Z), creating {z The corresponding row is 

mod 

removed from the corresponding column is moved to the right side to 

convert (37) to the following 




( 1 . 1 ) 


This set of simultaneous equations is solved for{Z mQ( j}. That element 
which was previously removed is then returned to fZ mod ) i forming the 
solution vector { Z) . After the left end boundary conditions of a beam are 
determined, then the (Y(s»n)} modal data can be determined at each integration 
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station along a segment by successive use 


of the recurrence equation (13). 


{Y(s ,n+l) } — ] {Y(s ,n) } 


( 1 * 2 ) 


If the rate of change of the modal properties are desired, then from 
equation (8) 


{Y* (s ,n) } = [ w]{Y(s,n)> 


(U3) 


It should he noted that this method is applicable for determining the modal 


data corresponding to any frequency. 


Application of the Method to Torsional Vibrations 


If the elastic axis of all beams and branches are everywhere 
concentric, it is also possible to derive the two first order differential 
equations for torsional vibrations analogous to the longitudinal vibration 

equations. 
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Beam element in torsional motion. 
Sketch 10. 


By D’Alembert's Principle, the dynamic equation for torsional motion is 
found to be 


or 


-T(x) + T(x) + 


dx - I (x ) 
P 


3 2 9 

at 2 


dx - 0 


9T (x) 
3x 



( 1 * 1 *) 

(1*5) 


If simple harmonic motion is assumed, then 



9(x,t) 


(1*6) 


Substituting equation (1*6) into equation (1*5) 


I <x> =-v*> 


UT 0(x,t) 


(1*7) 


22 



For longitudinal vibrations, the corresponding analogy is 


3P(x). 

9x 


-m(x) 


2 


w 


U(x,t) 


(U8) 


The elastic equation for the cross-sectional rotational function for a 


concentric member is 


39(x) _ T(x) an) 

9x J(x)G(x) 

The corresponding equation for the longitudinal displacement function is 


9U(x) „ P(x) 

3x ” A(x)E(x) 


(50) 


jp equation (U8) is compared with equation (UT) and equation (50) is compared 
with equation (U 9 ), it is seen that JG is analogous to AE, Ip is analogous 
to m, and 6 is analogous to U. Therefore by replacing JG, I p , and 9 
with AE, m, and U, respectively, all of the previously derived equations 
for the longitudinal vibrations of beams can be applied directly to torsional 
Yib^a-tion analysis of beams whose elastic equation and equation of motion 
are characterized by equations (UT) and (U9)« 


i 
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NUMERICAL EXAMPLE FOR IDEALIZED BEAM 


For the purpose of illustrating the procedure to calculate the 
longitudinal and torsional vibrations, an idealized beam is shown in sketch 
11. This example consists of a solid uniform circular shaft attached by 
a spring to the inside of a cylindrical shell. The spring is assumed to 
elongate only in the longitudinal direction. The physical characteristics 
of the idealized beam are provided in the computer program discussion. 



Idealized beam. 

Sketch 11. 

Matrix Formulation for Idealized Beam 

The procedure, as outlined in the analysis, is to write the boundary 
value equations for each joint; put the equations in matrix notation, and 
arrange as a product of the coefficient matrix and station property matrix. 
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The mathematical model of the idealized beam is illustrated in sketch 12. 



Numbering of joints and members. 
Sketch 12. 


[y(«)Hz} = o 


(50) 


Beam Member 


Joint Number 

( 1 ) 

(2) 

(3) 

(4) 


r 


4 

U 0 J [B(l ) ] j u 0j[B(2)] 


L0 1J[B(1)] ! -1-CtU) 1J[B(2)] 


[0 1 J [ b(i) ] i 





-ll Oj 
-L0 lj 


Ll 0j[B(3)l 


P 1 

u. 


u„ 


(51) 
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The vanishing of the coefficient matrix of eq. 51 is necessary to determine 
the natural frequencies, i.e. 


[y(o>)] = 0 


(52) 


: a__o \ 

ll o j [ b(i) ] 
10 lJ[B(l)J 
[0 1 J [b(i ) ] 


Ll 0J[B(2)] 
-l-«(A) 1J[B{2)] 


-ll 0J 


-ll Oj 


-10 lj 


!» 0 


ll 0j[B(3)] 


Sketch (13) illustrates the plot of |[y(u>)]| vs. w. The natural 
frequencies are obtained when |[y(w)]| = 0. 


(53) 


I Iy<(d)]! 



Natural frequencies of idealized beam. 
Sketch 13. 
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Calculation of the Modal Data 


The longitudinal mode shapes and natural frequencies are illustrated 
in figure 1. The first mode shape corresponds to the spring mode. The 
second mode shape corresponds to the first natural longitudinal frequency 
of the cylinder. The third mode shape corresponds to the first natural 
longitudinal frequency of the shaft, and the fourth mode shape corresponds 
to the second longitudinal frequency of the cylinder. 

The mode shapes associated with the natural torsional frequencies of 
the idealized beam are illustrated in figure 2. The first mode shape 
corresponds to the first natural torsional frequency of the shaft. The 
second mode shape corresponds to the first natural torsional frequency of 
the cylinder. The third mode shape corresponds to the second natural 

torsional frequency of the shaft, and the fourth mode shape corresponds to 
the second natural torsional frequency of the cylinder. 

In order to demonstrate the plotting capability of the program the 
Calcomp plotting instruction card is illustrated in figure 3. The modal 
data obtained from the Calcomp plot are illustrated in figures 4-8. 

This simple numerical example demonstrates the versitility of the 
program by illustrating that it will calculate the spring modes, branch 
modes, and beam modes. 
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TYPICAL LAUNCH VEHICLE APPLICATION 


In order to demonstrate the application of the matrix solution to a 
more realistic structure, a numerical example of an application to a solid 
fuel booster system is presented. The following assumptions apply to the 
analysis: 

(1) The solid-fuel mass is considered to adhere to the sides of the 
vehicle along the length and has has no motion relative to the vehicle. 

(2) The contribution of the fuel stiffness to the vehicle axial 
stiffness is negligible. 

(3) Damping is considered to be negligible. 

(4) All deformat ions are one-dimensional and no consideration is given to 
bending or breathing effects of the cylindrical shell wall. 

The vehicle physical characteristics were taken from reference 1 and 
are tabulated in tables I and II. These data are shown graphically in 
figures 9 and 10. The payload parameters were selected for a typical payload. 

Utilizing the method outlined in this paper the natural mode shapes 
and frequencies were obtained. The longitudinal natural mode shapes for the 
vehicle and payload are given in figure II. There is good correlation between 
the natural frequencies calculated by the lumped mass method of reference 1 
and those calculated by the method discussed in this paper. The frequency 
comparisons are illustrated in table III, The finite difference method is 
believed to be more accurate for two reasons. The first reason is that 
there were approximately ten times as many integrating stations in the 
finite difference method as there were lumped masses. The other reason 
the finite difference approach should be more accurate is because the 
discontinuities were accurately input in the program. 
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DISCUSSION OF METHOD APPLICATION 
Computational Accuracy 

Some of the points of interest to the user in the application of this 
method are discussed in this section. 

Choice of the number of integration stations .- Usually the choice of the 
•number of stations will present no problem because linear interpolation 
between the input physical characteristics will provide the number of 
stations necessary for sufficient accuracy. The computer program developed 
for this analysis has an upper limit of 20 members (main beam and branches) 
and up to a total of 600 integrating stations. However, in order to optimize 
the computer processing time, consistent with the required accuracy it is 
not usually desirable to utilize the maximum number of stations available 
in the program. 

In order to examine the accuracy of the method discussed, comparisons 
were made between exact and approximate solution for a beam of exponentially 
varying cross section. For the approximate solution, the beam was divided 
into n equally spared intervals with the station properties input at each 
interval. 

If the cross section varies as 

2nx 

A(x) = A e ^ (5 1 *) 

o 

The theoretical solution for the natural longitudinal vibrations of the 
exponentially varying beam is derived in reference 1. The parameter used 
for frequency comparison (Appendix A of reference l) is the percent error. 
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Percent error = “wafit ~ “approx. 

W 

exact 

The percent error for the first five elastic modes as a function of the 
total number of integration stations is given in figure 12 for the natural 
frequencies calculated by the method discussed in this paper vs. the 
.theoretical natural frequencies. For this error analysis, the cross- 
sectional ratio of the beam ends in approximately 50* Even with this large 
variation of the cross-sectional area, it is found that the accuracy of the 
natural frequencies is primarily dependent on the number of integration 
stations rather than on the variation of the cross-sectional area. The 
first five natural longitudinal frequencies of the exponential beam were 
determined to be within one percent of their theoretical values when only 
75 integrating stations were utilized. It has been found that a good 
rule of thumb for determining the minimum number of integration stations 
is L/100. 

Advantages of the Recurrence Method for Longitudinal and Torsional Vibration 

Analysis 

The prime advantage of the theoretical method over the lumped mass 
approach for determining the longitudinal vibration of beamlike structures 
is that the physical characteristics may be input directly, rather than 
resorting to a finite element representation and averaging the properties. 
Therefore, the input time is greatly reduced. Another important advantage 
is that the method is appropriate to highly discontinuous structures. 

Other advantages of the method are that it is appropriate to any boundary 
condition at the end point of a branch or beam and that a very large number 
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of stations may he utilized without the storage or inversion of large 
matrices . 



CONCLUDING REMARKS 


A finite difference method for the analysis of longitudinal and torsional 
vibrations of nonuniform multibranch beams is presented. The end of each 
beam or branch may be fully or partially constrained to the main member. 

The equations have been programmed for the CDC 6600 Series Computer Systems 
•and have given excellent agreement when compared with numerical examples and 
exact solutions. 

A numerical example of the procedure to calculate the longitudinal 
and torsional characteristics of an idealized beam along with an application 
of the method to a launch vehicle are provided. Comparisons of the method 
with exact solutions indicate that the accuracy of the solution is 
practically independent of cross-sectional variation, but is primarily 
dependent on the number of integration stations. 

The primary advantage of this method is that highly discontinuous 
physical characteristics may be input directly. Another important advantage 
of the program is that the boundary condition may vary from fixed to free 
at each Joint or end. 
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TABLE I 

PHYSICAL CHARACTERISTICS OF LAUNCH VEHICLE 


7 

X, 

in. 

x, 

meter 

a * 2 
lb-sec / 

. 2 
in 

m * 2 
Newton-sec 

. 2 
meter 

AE 

lb 

x 10“ 6 

AE 

Newton 

xlO* 1 

0.000 

0.0000 

0,036808 

253.782 

160.00 

71.168 

15.800 

0.4013 

0.046624 

321.461 

295.00 

131.266 

15.800 

0.4013 

0.046624 

321.461 

295.00 

131.266 

17.276 

0.4388 

0.046624 

321.461 

295 . 00 

131.266 

17.276 

0.4388 

0.046624 

321.461 

280.30 

124.683 

. 22.270 

0.5658 

0.046624 

321.461 

280.30 

124.683 

22.270 

O.5658 

0.046624 

321.461 

309.40 

137.627 

24.876 

0.6318 

0.046624 

321.461 

309.40 

137.627 

24.876 

0.6318 

0.046624 

321.461 

1201.70 

534.540 

27.176 

0.6903 

0.046624 

321.461 

1201,70 

534.540 

27.176 

0.6903 

0.046624 

321.461 

504.40 

224.367 

29.776 

0.7563 

0.046624 

321.461 

504.40 

224.367 

29.776 

0.7563 

0.046624 

321.461 

613.60 

272.942 

31.776 

0.8071 

0.046624 

321.461 

613.60 

272.942 

31.776 

0.8071 

0.046624 

321.461 

699.90 

311.329 

33.776 

0.8579 

0.046624 

321.461 

699.90 

311.329 

33.776 

0.8579 

0.046624 

321.461 

2350.40 

1045.504 

34.900 

0.8864 

0.046624 

321.461 

2350.40 

1045.504 

34.900 

0.8864 

0.071398 

492.272 

2350.40 

1045-504 

36.576 

0.9290 

0.071398 

492.272 ! 

2350.40 

1045. 504 

36.576 

O.9290 

0.071398 

492.272 ! 

841.88 

374.485 

39.976 

1.0153 

0.071398 

492.272 

841.88 

374.485 

39.976 

1.0153 

0.071398 

492.272 

689 . 30 

306.614 

41.176 

1.0458 

0.071398 

492.272 

689.30 

306. 6l4 

41.176 

1.0458 

0.071398 

492.272 

316.70 

104.874 

41.576 

1.0560 

0.071398 

492.272 

316.70 

104.874 

41.576 

1.0560 

0.071398 

492.272 

576.40 

256.394 

44.276 

1.1245 

0.071398 

492.272 

576.40 

256.394 

44.276 

1.1245 

0.071398 

492.272 

316.70 

140.874 

45.400 

1.1531 

0.071398 

492.272 

316.70 

140.874 

45.400 

1.1531 

0.049883 

343.931 

316.70 

140.874 

48.176 

1.2236 

0.049883 

343.931 

316.70 

140.874 

48.176 

1.2236 

0.049883 

343.931 

576.40 

256.394 

53.176 

1.3506 

0.049883 

343.931 

576.40 

256.394 

53.176 

1.3506 

0.049883 

343.931 

316.70 

140.874 

116.576 

2.9610 

0.049883 

343.931 

316.70 

140.874 

116.576 

2.9610 

0.049883 

343.931 

576.40 

256.394 

118.000 

2.9971 

0.049883 

343.931 

576.40 

256.394 

118.000 

2.9971 

0.059360 

410.486 

576.40 

256.394 

119.576 

3.0372 

0.059360 

410.486 

576.40 

256.394 

119.576 

3.0372 

0.059360 

410.486 

316.70 

140.874 

177.076 

4.4977 

0.059360 

410.486 

316.70 

140.874 
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TABLE I (Continued) 


PHYSICAL CHARACTERISTICS OF LAUNCH VEHICLE 


X, 

in. 

x. 

meter 

m > 2 
lb-sec / 

in 2 

2 

Newton-sec 1 

„ 2 
meter 

AE 

lb 

xlO* 6 

AE 

Newton 

xlO" 1 

177.076 

4.4977 

0.059360 

410.486 

576.40 

256.394 

180.076 

4.5739 

0.059360 

410.486 

576.40 

256.394 

180.076 

4.5739 

0.059360 

410.486 

316.70 

140.874 

185.176 

4.7034 

0.059360 

410.486 

316.70 

140.874 

185.176 

4.7034 

0.059360 

410.486 

841.90 

374.494 

187.676 

4.7669 

0.059360 

410.486 

841.90 

374.494 

♦ 187.676 

4.7669 

0.059360 

410.486 

316.70 

140.874 

187.776 

4.7694 

0.059360 

410.486 

316.70 

140.874 

187.776 

4.7694 

0.059360 

410.486 

1041.30 

463.191 

188.776 

4.7948 

0.059360 

410.486 

104l . 30 

463.191 

188.776 

4.7948 

0.059360 

410.486 

2449.20 

1089.453 

189.IOO 

4.8031 

0.059360 

410.486 

2449.20 

1089.453 

189.IOO 

4.8031 

0.100380 

692.096 

2449.20 

1089.453 

192.776 

4.8964 

0.100380 

692.096 

2449.20 

1089.453 

192.776 

4.4951 

0.100380 

692.096 

39.00 

17.348 

193.100 

4.9047 

0.100380 

692.096 

39.00 

17. 348 

193.100 

4.9047 

0.007668 

52.869 

39.00 

17.348 

201.156 

5.1093 

0.007668 

52.869 

39.00 

17-348 

201.156 

5.1093 

0.007668 

52.869 

78.00 

34.696 

282.200 

5.1358 

0,007668 

52.869 

78.00 

34.696 

282.200 

5.1358 

0.018549 

127.891 

78.00 

34 . 696 

203.756 

5.1753 

0.018549 

127.891 

78.00 

34.696 

203.756 

5-1753 

0.018549 

127 . 891 

112.80 

50.176 

204.200 

5.1866 

0.018549 

127.891 

112.80 

50.176 

204.200 

5.1866 

0.012378 

85.343 

112.80 

50.176 

209.382 

5.3182 

0.012378 

85.343 

112.80 

50.176 

209.382 

5.3182 

0.012378 

85.343 

135.20 

60.140 

211.700 

5.3771 

0.012378 

85.343 

135*20 

6o.l4o 

211.700 

5.3771 

0.025331 

174.651 

135.20 

6o.l4o 

214.300 

5.4432 

0.025331 

174.651 

135.20 

60.l4o 

214.300 

5.4432 

0.025331 

174.651 

369.20 

164.228 

215.100 

5-4635 

0.025331 

174.651 

369.20 

164.228 

215.100 

5.4635 

0.025331 

174.651 

130.00 

57.827 

219.556 

5.5767 

0.025331 

174.651 

130.00 

57.827 

219.556 

5.5767 

0.025331 

174.651 

118.60 

52.756 

221.716 

5.6333 

0.025331 

174.651 

118.60 

52.756 

221.716 

5.6333 

0.025331 

174.651 

169.80 

75.174 

223.200 

5.6692 

0.025331 

174.651 

169.80 

75.174 

223.200 

5.6692 

0.023840 

164.330 

169.80 

75.174 

224.500 

5.7022 

0.023840 

164.330 

169.80 

75.174 

224.500 

5.7022 

0.023840 

164.330 

442.00 

196.610 

225.356 

5.7230 

0.023840 

164.330 

442.00 

196.610 

225.356 

5.7230 

0.023840 

164.330 

280.00 

124.905 
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TABLE I (Continued) 

PHYSICAL CHARACTERISTICS OF LAUNCH VEHICLE 


in. 

x, 

meter 

» p 

lb-sec / 

. 2 
m 

m, 2 
Newton-sec 

_ 2 
meter 

AE 

lb 

xlO -6 

AE 

Newton 

xlQ -1 

228.056 

5.7926 

0.023840 

164.330 

280.00 

124.905 

228.056 

5.7926 

0.023840 

164.330 

730.10 

324.763 

229.456 

5.8281 

0.023840 

164.330 

730.10 

324.763 

229.456 

5.8281 

0.023840 

164.330 

137.80 

61.296 

230. TOO 

5.8597 

0.023840 

164.330 

137.80 

61.296 

230.700 

5.8597 

0.024559 

169.328 

137.80 

61.296 

. 231.356 

5.8764 

0.024559 

169.328 

137.80 

61.296 

231.356 

5.8764 

0.024559 

169.328 

70.50 

31.360 

331.356 

8.4164 

0.024559 

169.328 

70.50 

31.360 

331.356 

8.4164 

0.024559 

169.328 

130.00 

57.827 

332.900 

8.4556 

0.024559 

169.328 

130.00 

57.827 

332.900 

8.4556 

0.044689 

308.120 

431.00 

191.984 

335.956 

8.5332 

0.044689 

308.120 

431.60 

191.984 

335.956 

8.5332 

0.044689 

308.120 

213.20 

94.836 

337.900 

8.5840 

0.044689 

308.120 

213.20 

94.836 

337.900 

8.5840 

0.013808 

95.203 

71.42 

31.769 

340.500 

8.6486 

0.013808 

95.203 

98.60 

43.877 

340.500 

8.6486 

0.013808 

95.203 

98.60 

43.877 

31+7.200 

8.8188 

0.013808 

95.203 

132.64 

58.998 

31+7.200 

8.8188 

0.025466 

175.528 

132.64 

58.998 

31+8.000 

8.8391 

0.025466 

175.528 

136.83 

60.865 

31+8.000 

8.8391 

0.025466 

175.528 

136.83 

60.865 

351.000 

8.9153 

0.0254 66 

175.582 

425.60 

189.315 

351.000 

8.9153 

0.025466 

175 . 582 

425.60 

189.315 

351.800 

8.9357 

0.025466 

175.582 

136.83 

60.865 

351.800 

8.9357 

0.025466 

175.582 

136.83 

60.865 

357.800 

9.0881 

0.025466 

175.582 

112.60 

50.087 

357.800 

9.0881 

0.025466 

175.582 

112.60 

50.087 

361.200 

9.1744 

0.025466 

175.582 

199.10 

88.564 

361.200 

9.1744 

0.022530 

155.339 

612.00 

272.230 

362. 300 

9.2024 

0.022530 

155.339 

199.10 

88.564 

362.300 

9.2024 

0.022530 

155.339 

199.10 

88.564 

3614.800 

9.2659 

0.022530 

155.339 

336.70 

149.771 

361+ . 800 

9.2659 

0.022530 

155.339 

730.10 

324.763 

366.200 

9-3014 

0.022530 

155.339 

730.10 

324.763 

366.200 

9.3014 

0.024559 

| 169.328 

195.00 

86.740 

368.100 

9.3497 

| 0.024559 

i 169.328 

70.50 

31.360 

368.100 

9.3497 

{ 0.024559 

! 169.328 

70.50 

31.360 

1+67.700 

11.8795 

0.024559 

j 169.328 

70.50 

31.360 i 

1+67.700 

11.8795 

0.044689 

308.120 

70.50 

31.360 ! 

1+68.100 

11.8897 

0.044689 

308.120 

70.50 

31.360 

468.100 

11.8897 

0.044689 

308.120 

70.50 

31.360 

469.700 

11.9303 

0.044689 

308.120 

184.50 

1 

82.069 
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TABLE I (Continued) 

PHYSICAL CHARACTERISTICS OF LAUNCH VEHICLE 


X, 

in. 

x, 

meter 

2 

lb-sec / 

. 2 
in 

2 

Newton-sec 

„ 2 

meter 

AE 

lb 

xlO -6 

AE 

Newton 

xlO -1 

1+69.700 

11.9303 

0.044689 

308.120 

184.50 

82.069 

1+71.800 

11.9837 

0.044689 

308.120 

529.10 

235.354 

1+71.800 

11.9837 

0.004788 

308.120 

529.10 

235.354 

1+72.700 

12.0065 

0.004788 

308.120 

529.10 

235.35^ 

1+72.700 

12.0065 

0.004788 

308.120 

187.80 

83.537 

474.600 

12.0548 

0.004788 

308.120 

187.80 

83.537 

I+7I+.6OO 

12.0548 

0.004788 

308.120 

75.40 

33.539 

1+77.200 

12.1208 

0.004788 

308.120 

75-40 

33.539 

1+77.200 

12.1208 

0.004788 

308.120 

707.20 

314.577 

1+77.500 

12.1285 

0.004788 

308.120 

707.20 

314.577 

1+77.500 

12.1285 

0.004788 

308.120 

75.40 

33.539 

1+81.1+00 

12.2275 

0.004788 

308.120 

75.40 

33.539 

1+81.1+00 

12.2275 

0.004788 

308.120 

75.40 

33.539 

1+83.1+00 

12.2783 

0.004788 

308.120 

216.60 

93.679 

1+83.1+00 

12.2783 

0.004788 

308.120 

190.90 

84.916 

1+84.700 

12.3113 

0.004788 

33.012 

452.40 

201.236 

1+81+.700 

12.3113 

0.023784 

163.378 

452.40 

201.236 

1+84.71+9 

12.3380 

0.023784 

163.378 

870.70 

387.305 

484.749 

12.3380 

0.023784 

163. 378 

870.70 

387.305 

485.811 

12.3396 

0.023784 

163.378 

870.70 

387.305 

485.811 

12.3396 

0.028338 

193.605 

162.80 

72.417 

486.749 

12.3634 

0.028338 

193.605 

130.00 

57.829 

486.749 

12.3634 

0. 034161 

235.532 

130.00 

57.829 

487.624 

12.3856 

0.034l6l 

234.642 

98.50 

43.815 

487.624 

12.3856 

0.017728 

122.230 

33.46 

14.884 

488.120 

12.3982 

0.017728 

122.230 

33.46 

14.884 

488.120 

12.3982 

0.017728 

122.230 

33.46 

14.884 

490.749 

12.4650 

0.017728 

122.230 

33.46 

14.884 

490.749 

12.4650 

0.012320 

77.442 

33.46 

14.884 

491.999 

12.4967 

0.012320 

76.376 

33.46 

14.884 

491.999 

12.4967 

0.008230 

73.540 

33.46 

14.884 

494.085 

12.6513 

0.008230 

56.774 

33.46 

14.884 

494.085 

12.5513 

0.014880 

102.594 

33.46 

14.884 

498.549 

12.6631 

0.014880 

102.594 

33.46 

14.884 

498.549 

12.6631 

0.011827 

87.432 

33.46 

14.884 

504.085 

12.8037 

0.011827 

81.544 | 

33.46 

14.884 

504.085 

12.8037 

0.005952 

41.038 ; 

33.46 

14.884 

504.585 

12.8164 

0.018245 

43.540 

33.46 

14.884 

504.585 

12.8164 

0.018245 

125.795 j 

33.46 

14.884 

505.499 

12.8396 

0.018245 

125.795 

33.46 

14.884 

505.499 

12.8396 

0.018245 

125.795 

182.16 

81.028 

506.599 

12.8676 

0.018245 

125.795 

182.16 

81.028 

506.835 

12.8736 

0.045031 

310.478 

25.7^ 

11.450 

507.800 

12.8981 

0.045031 

310.478 

25.74 

11.450 
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TABLE I (Continued) 

PHYSICAL CHARACTERISTICS OF LAUNCH VEHICLE 


X, 

in. 

x, 

meter 

m 9 p 

lb- sec / 

. 2 
xn 

m» 2 

Newton-sec 

„ 2 
meter 

AE 

lb 

xl0“ 6 

AE 

Newton 
xlO ^ 

507.800 

12.8981 

0.045031 

310.478 

4.45 

1.979 

511.899 

13.0022 

0.045031 

310.478 

4.20 

1.294 

511.899 

13.0022 

0.051756 

356.845 

4.20 

1.294 

513.099 

13.0372 

0.051756 

356.845 

4.15 

1.673 

513.099 

13.0372 

0.045316 

312.443 

4.15 

1.673 

536.589 

13.6293 

0.045316 

312.443 

3.40 

1.512 

■ 536.589 

13.6293 

0.046558 

321.006 

3.40 

1.512 

537.909 

13.6651 

0.046558 

321.006 

3.35 

1.490 

537.909 

13.6651 

0.004710 

32.740 

3.35 

1.490 

51*2.589 

13.7817 

0.004710 

32.740 

3.20 

1.423 

5U2.589 

13.7817 

0.015931 

109 . 846 

3.20 

1.423 

51*6.899 

13.8912 

0.015931 

109.846 

3.15 

1.401 

5U6.899 

13.8912 

0.027685 

190 . 881 

3.15 

1.401 

581*. 81+9 

13.91*07 

0.027685 

190.991 

3.10 

1.378 

58U. 81+9 

13.91*07 

0.005435 

37.473 

3.10 

1.378 

553.069 

lit. 01+79 

0.005435 

37.473 

2.91 

1.294 

553.069 

ll*. 01*79 

0.005435 

40.148 

2.91 

1.294 

554.609 

lit. 0870 

0.005435 

4o.l48 

2.71 

1.205 

55l*.609 

1I+.0870 

0.006185 

42.644 

2.71 

1.205 

555.999 

14.1223 

0.005900 

40.679 

2.4l 

1.071 

555-999 

14.1223 

0.005900 

40.679 

2.41 

1.071 

559.068 

14.2003 

0.005176 

35.687 

1.91 

0.849 

559.068 

14.2003 

0.005176 

35.687 

1.91 

0.849 

560.999 

14.2493 

0.005176 

35.687 

1.61 

0.716 

560.999 

14.2493 

0.005176 

35.687 

1.6l 

0.716 

561*. 109 

14,3283 

0.004790 

33.026 

1.42 

O.631 

561*. 109 

14.3283 

0.008851 

61.025 

1.42 

0.631 

565.068 

14.3527 

0.008800 

60.674 

1.37 

0.609 

565.068 

14.3527 

0.008800 

60.674 

1.37 

0.609 

567.800 

14.4221 

0.008800 

60.674 

1.00 

0.448 

567.800 

14.4221 

0.008800 

60.674 

1.00 

0.448 

569.1*27 

14.4634 

0.008644 

59.598 

0.782 

0.347 

569.1*27 

14.4634 

0.008644 

59.598 

0.782 

0.347 

569.857 

14.4744 

0.001941 

13.383 

0.60 

0.266 

569.857 

14.4744 

0.001941 

13.383 

0.60 

0.266 

575.71*9 

14.6240 

0.001579 

10.887 

0.398 

0.177 

575.71*9 

14.6240 

0.000924 

6.371 

0.398 

0.177 

577.800 

14.6761 

0.000700 

4.826 

0.36 

0.160 

577.800 

14.6761 

0.000700 

4.826 

0.26 

0.115 

580.999 

14.7573 ; 

0.000655 

4.516 

0.210 

0.0934 

580.999 

14.7573 

0.000655 

4.516 

0.210 

0.0934 

581.800 

14.7781 

0.000500 

3.447 

0.200 

0.0098 

581.800 

14.7781 

0.000500 

3.447 

0.200 

0.0088 
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TABLE I (Concluded) 

PHYSICAL CHARACTERISTICS OF LAUNCH VEHICLE 


X, 

in. 

. . . 

x, 

meter 

m, 2 

lb-sec / 

. 2 
in 

m, 2 

Newton-sec 

_ 2 
meter 

AE 

lb 

xlO -6 

AE 

N 

-1 

xlO 

587.420 

14.9204 

0.000466 

3.447 

0.169 

0.0751 

587.420 

14.9204 

0.000466 

3.447 

0.161 

0.0716 

589.260 

lU .9672 

0.001633 

10.811 

2.000 

0.8896 

589.260 

lU.9672 

0.001633 

10.811 

2.000 

O.8896 

590.127 1 

lU.9892 

0.001633 

10.811 

4.620 

2.0549 

590.127 

14.9892 

0.001633 

10.811 

4.620 

2.0549 

* 593 .429 ; 

i 

15.0713 

0.001633 

0.000 

0.100 

0.0444 
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TABLE II 

PHYSICAL CHARACTER I STI CS OF PAYLOAD 


(a) U.S. Customary Units 


x, 

m. 

c 

AE xlO 

in 

lb- sec 2 /in 2 

lb 

488.320 

0.02 

2.0000 

548.120 

0.02 

2.0000 


(t>) SI Units 


x, 

meter 

m, 2 

Newton-sec 

. 2 
meter 

AE xlO~ T 
Newton 

12 . 3983 
13.9223 

137*8951 

137.8951 

fill 


TABLE III 

A COMPARISON OF THE NATURAL LONGITUDINAL FREQUENCIES CALCULATED BY THE 
LUMPED MASS METHOD OF REFERENCE 1 AND THE FINITE DIFFERENCE PROCEDURE 

FOR THE ROCKET-VEHICLE CONFIGURATION 


Mode 

Lumped Mass (Hz) 

Finite Difference (H 

z) Percent Increase 

1 

36.6 

38.5 

5.2 

2 

47-7 

49.7 

4.2 

3 

72.6 

75.0 

4.6 
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Figure 2 Numerical example natural torsional mode shapes. 
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PROCESS NO 


CALCOMP PLOTTING INSTRUCTION CARO 



BIN NO. 


NO. OF PLOTS 
A 


FLOT STOP 
ADDRESS 


INK 

COLOR 


Black 


STARTING X Inches 
LOCATION Y IncheB 


Pr, 


^ Sg 

Cto 

CT 

"3 *>jS 

o. 

fA 

crz 

c:o 


PLOT 

MODE 


X i- PHONE 


E 


J.O. NO./ 

□ Single PEN □ballpoint 

(3 Multiple TYPE □"Leroy, Size 


□ 

Green 


PAPER . TYPE 

NO. qOO PAPER 




SPECIAL INSTRUCTIONS 

ygfcw f TOP, 


ACD-OCO 


Figure 3*~ Calcomp plotting instruction card. 
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Figure 5.- Numerical example plot of torsional mode slopes. 
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NORMALIZED DISPLACEMENT 
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Total number of stations, n 

Figure 12.- Frequency percent error as a total number of stations. 
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• Figure 13.- Computer program flow diagram. 
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APPENDIX A 

DESCRIPTION OF COMPUTER PROGRAM 
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METHOD OF INPUT 


1. One or two title cards are allowed. Columns 1 to 80 may "be used on each 

card. Both title cards will be printed at the beginning of output. 

Thereafter only the first title card will be used as a header. 

2. The following namelists may be read in any order. 

a. Namelist name: $LONVIB 

Variable list: X, MASS, AE, NON, TIME, BEAM 

Remarks: Each beam member is assigned a number (by the program) which 

depends upon the order in which the $LONVIB namelist groups ’ 
are input. $LONVIB for beam member #3 must follow $LONVIB 
for beam member #2, for instance. 

Note: Beam is never used in the program, so need not be input. The 
last value read in for TIME will be printed in the output for 
each mode. This name list is applicable when longitudinal 
vibration analysis is desired. 

b. Namelist name: $TORVIB 

Variable list: X, ZR, JG, NON, TIME, BEAM 

Remarks: Each beam member is assigned a number (by the program) in 

the same manner as described for $L0NVIB. This namelist iB 
applicable when torsional vibration analysis is desired. 

c. Namelist name: $INPFRQ 

Variable list: OMEG 

Remarks: This namelist group is input only if the natural frequencies 

are known. No frequency search will be conducted when this 
group is input. 

d. Namelist name: $MODES 

Variable list: OMEGA, DELOMG, OMGTOL, NOMODE, FRSTMD, NORM, NORMBR, 

NORDIS , NOREQM 

Remarks: In every run, this group must be entered once. If entered 

when $INPFRQ is entered, the first four variables in this 
namelist group will be ignored. 

Note that OMGTOL is a relative difference in frequencies 
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w, 

computed by this formula, OMGTOL = | — - l| . 

W 2 

Note that NOMODE is not affected by the value of FRSTMD. 
FRSTMD is set to one (l) internally, so need be entered 
only when the set of numbers assigned to the modes should not 
begin with unity; for example when a run is to start with 
other than the first mode. 


To normalize to a particular station on one beam member, set 
NORM equal to that station number and set NORMBR equal to 
that beam member number. To normalize to the station of 
maximum modal displacement, omit NORM and NORMBR and set 
NORDIS equal to "T". To normalize to the generalized mass, 
omit NORM, NORMBR and NORDIS and set NOREQM equal to "T". 

To obtain non-normal i zed data, omit NORM , NORMBR, NORDIS, 
and NOREQM. 

To obtain a printed list of the nondimensionalized frequency 
and f U J values calculated during the frequency search, 
insert a minus sign in front of the value for NOMODE. 

e. Namelist name: $JOINT 

Variable list: MBRI(J), MBRJ(J) , MBRK(J), MBRL(J), IOJTRN(J), TRNS(J), 

IJTRN(J), IKTRN(J), ILTRN(j), TRNFIJ{J), TRNFIK(j), 
TRNFIL(J). 

Remarks: This group must be input once for each run. It describes 

which members are constrained at each Joint. If the 
constraint is partial, the flexibility of the partial 
constraint must be entered. MBRl(j), MBRJ(J), MBRK(J), 
MBRL(J), and IOJTRN(J) must always be entered. 




The constraint codes are: 



1 = Full constraint 

2 = Partial constraint 

3 = No constraint 

Namelist 

name: 

$CONTRL 

Variable 

list: 

RFX, RFMASS, RFAE, XMOD, MASMOD, AEMOD, DELX, JGMOD , 
ZRMOD, RFJG, RFZR. 

Remarks : 

This 

Only 

namelist group controls the accuracy of the solution, 
those variables not equal to one must be entered, since 


these variables are initially set equal to one by the 
program . 
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g. Namelist name: $OUTPUT 

Variable list: ZTAC, DZTAC , TENS, DTENS, TORQ, DTORQ, ISID, ISOD, 

PLOT. 

Remarks: This group must be input once in each run. Four of the first 

six variables listed above must be input. ISID, ISOD, and 
PLOT are set to F internally so need be entered only if T. 

If a Calcomp plot is desired, PLOT = T, and items 3 and 4 of 
INPUT must follow the $END card. 

h. Namelist name: $END 

Variable list: None. 

Remarks: Last card input of section 2 of INPUT must contain $END. If 

PLOT = T, in input namelist g of INPUT, then items 3 and 4 
must follow. 

3. Header card for Calcomp plot identification. Use columns 1 to 80 on card. 

4. Namelist name: $NAM1 

Variable list: INCHX, DX, XMIN, PLTZ, PLTZPR, NZAPR, MPLT, PLTT, NPLTT, 

TWIN, ZPMIN1, DZP1, ZPMIN2, DZP2, ZPMIN3 , DZP3, DTT, PLTM, 
NMZR, MZRMIN, MZRMIN, DMZR , PLTZR , PLTAE, PLTGJ , NMAEJG, 
AJMIN, DAJEJG. 

Remarks: The header card and $NAM1 namelist must be read for every case 

separately if plots are desired. 



SYMBOLS 


Input Namelist 

$CONTRL 

$END 

$INPFRQ 

$JOINT 

$LONVIB 

$MODES 

$NAM1 

$OUTPUT 

$TORVIB 


Names 


contro l. Input of numerical control data. 

end . Required last item of input. 

inpu t frequency. Input of known modal frequencies. 

.joint . Input of joint description data. 

long itudinal vibr ation. Input data characteristics of 
mass and axial stiffness. 

modes ■ Input of data affecting selection of modes 
and normalization. 

plot information, if plots are desired. 

output . Input of data controlling the output of 
program results. 

tors ional vibr ation. Input data characteristics of 
torsional stiffness and polar mass moment of inertia. 
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NOMENCLATURE 


A. Input-Output Variable Names of Main Program 

In the following list, fixed point variables (no decimal point allowed) 
are designated by ''Integer". Floating point variables (decimal point required) 
are designated by "Decimal". The use of letters rather than numbers is 
designated by "Logical". 


iTame 


Description 

AE(N) 

Decimal 

AE. Axial stiffness at the Nth station, 
lb/in 2 . 

AEMOD 

Decimal 

AE modification. Constant by which each value 
of AE(N ) will be multiplied, unitless. 

BEAM 

Integer 

beam. In input, identification number of beam 
assigned by Physical Characteristics Program, 
unit less. It indicates the order in which 
the beams were input to (and output from) 
this program. 

DELOMG 

Decimal 

delta omega. Frequency interval used in the 
search for modal frequencies, rad. /sec. 

DELX 

Dec imal 

delta X. Maximum length of integration 
interval along vehicle center line, in. 

DTENS 

Integer 

derivative of tension column number. Identi- 
fication number for the column in the output 
in which DTEN(N) will be printed, unitless. 

DTORQ 

Integer 

derivative of torque column number. Identi- 
fication number for the column in the output 
In which torque-prime will be printed, 
unities s. 

DZETA(N) 

Decimal 

derivative of zeta. Lengthwise derivative of 
modal deflection at the Nth station, in. /in. 
(before normalization). 

DZTAC 

Integer 

derivative of zeta column. Identification 
number for the column in the output in which 
DZETA(N) will be printed* unitless. 

FRSTMD 

Integer 

first mode. Number to be assigned to the 


first mode calculated, unitless. 
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Name 

Type 

Description 

IJTRN(J) 

Integer 

i - translation. Code number for the 
translational constraint between beam 
members in the "i" and "j" positions at the 
J th joint, unitless. The code is identical 
to that shown in the description of IJROT(J). 

IKTRN(J) 

Integer 

i. - k translation. Code number for the 
translational constraint between beam members 
in the "i" and "k" positions at the J th joint, 
unitless. The code is identical to that shown 
in the description of IJROT(J). 

ILTRN(J) 

Integer 

i - 1, translation. Code number for the 
translational constraint between beam members 
in the "i" and "1” positions at the jth joint, 
unitless. The code is identical to that shown 
in the description of IJBOT(J). 

IOJTRN(J) 

Integer 

i. or translation. Code number for the 
translational constraint between the ground 
and beam member in either the "i ,T or "j" 
position at the joint, unitless. The 

code is identical to that shown in the 
description IJROT(J). 

IS ID 

Logical 

input stations for input data? True-false 
indicator to call for printing the physical 
characteristics at the stations which were 
input. 

T = Print only at input stations. 

F = Print at all stations. 

I SOD 

Logical 

input stations for output data? True-false 
indicator to call for output of the results 
of the program. 

T = Output and plots re stilts at input 
stations. 

F = Output and plots results at all 
stations . 

JG 

Dec imal 

Torsional stiffness at the N th station, 
lb/in2. 

JGMOD 

Decimal 

JG modification. Constant by which each 
value of JG(N) will be multiplied, unitless. 

MASMOD 

Decimal 

mass modification. Constant by which each 
value of MASS(N) will be multiplied, 
unities s . 
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Name 


MASS ( N ) 
MBRI(J) 

MBRJ(J) 

MBRK(J) 

MBRL(j) 

NOMODE 

NON 

NORDIS 

NOREQM 

NORMBR 

NORM 


Type 

Decimal 

Integer 

Integer 

Integer 

Integer 

Integer 

Integer 

Logical 


Logical 


Integer 


Integer 


Description 


mass . Mass per unit length at 
lb.sec^/in. . 


station,. 


member i.. Identification 
member in position "i" at 
unitless . 


number of the 
the J th joint 


beam 


member Identification number of the beam 
member in position "j" at the joint, 
unitless. 


member. k., Identification number of the beam 
member in position "k” at the joint, 
unitless . 


member 1.. Identification number of the beam 
member in position "1" at the Joint, 
unitless. 


no . of modes . Total number of modes to be 
computed, unitless. If negative, the values 
of the frequency and U determinant from the 
search routine will be printed. 

no . of N*s. Total number of stations on a 
beam member, unitless. 

norm alize to disp lacement? True-false 
indicator to call for normalization of each 
eigenvector to its station of maximum modal . 
displacement. 

T - Normalize to maximum displacement. 

F = Do not normalize to maximum displace- 
ment . 

norm alize to equivalent mss? True-false 
indicator to call for normalization or each 
eigenvector to its associated generalized 
mass. 

T = Normalize to unit generalized mass. 

F = Do not normalize to unit generalized 
mass. 


norm alize on member.. Identification number of 
beam member on which the normalization station 
is located, unitless. 

norm alize on station N. Subscript of input 
station on beam member NORMBR at which to 
normalize the eigenvectors of every mode, 
unitless. 
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Name 


OMEG(I) 

OMEGA 

OMEGA SUBR 
OMGTOL 

PLOT 

RFAE 

RFJG 

RPMASS 

RFX 

RFZR 

TENS 

TENSION 

TENSION-PRIM 

TENSN(N) 

TIME 


Type 

Decimal 

Decimal 


Decimal 


Decimal 


Logical 


Decimal 

Decimal 

Decimal 

Decimal 

Decimal 

Integer 

Decimal 

Decimal 

Decimal 

Decimal 


Description 

omega . Array of frequencies accepted by the 
program as known modal frequencies, rad. /sec. 

omega . First trial frequency to be used in the 
search for natural frequencies, rad. /sec. 

OMEGA should be less than the expected first 
frequency . 

omega r . Reference value of frequency, 
rad. /sec . 

omega tole rance. Relative accuracy criteria 
for the natural frequency convergence, 
unitless. 

plot . True-false indicator to call for 
Calcomp plot. Initialized as F. 

T = Plot. 

F = Do not plot. 

reference of AE. Reference value of axial 
stiffness, lb. in. . 

2 

reference of JG, lb. in. . 

reference of mass . Reference value of mass 
per unit length, lb. sec. 2 /in. 

reference of X. Reference value of lengthwise 
coordinate, in. 

reference of ZR. Reference value of mass 
moment of inertia, lb. sec. 

tensi on column. Identification number for the 
column in the output in which the TENSN(N) 
will be printed out. 

tension . Axial force at a station, lbs. 

longitudinal strain at a station lb. /in. 

tensi on, axial force at the Nth station, lb. 
(before normalization). 

time . Value of time associated with each 
group of output data, seconds. (TIME is not 
used in the program). 
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Name 

Type 

Description 

TRNFIJ(J) 

Decimal 

translational flexibility constant between 
f and f. Translational flexibility constant 
between beam members in positions "i" and M J” 
at the J*'* 1 Joint, in. /lb. 

TRNFIK(J) 

Dec imal 

translational flexibility constant between 
i and k. Translational flexibility constant 
between beam members in positions "i" and "k" 
at the Joint, in. /lb. 

TRNFIL(J) 

Decimal 

translational flexibility constant between 
i_ and Translational flexibility constant 

between beam members in positions "i" and "l” 
at the Joint, in. /lb. 

TRNS(j) 

Decimal 

translational spring constant. Translational 
spring constant between the ground and beam 
member in either the "i” or "j" position at 
the Joint, lb. /in. 

X(N) 

Decimal 

X. Lengthwise position coordinate of the 
station, in. 

XMOD 

Decimal 

X modification. Constant by which each value 
of"x(N) will be multiplied, unitless. 

ZETA(N) 

Dec imal 

seta. Modal displacement at N th station, in. 
(before normalization). 

ZETA 

Decimal 

longitudinal or torsional deflection at a 
station, unitless. 

ZETA PRIME 

Decimal 

slope of longitudinal or torsional deflection 
at a station, unitless. 

ZR 

Decimal 

mass moment of inertia at station, lb. sec 

ZTAC 

Integer 

zeta column. Identification number for the 
column in the output in which ZETA(N) will be 
printed, unitless. 

TORQ 

Integer 

torque column. Identification number for the 
column in the output in which the torque will 
be printed, unitless. 

TORQUE 

Decimal 

torque. Torsional force at a station, in. /lb. 

TORQUE-PRIME 

Dec imal 

torque-prime. Rate of change of torsional 
force at a station, lb. 
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B. Input Plot Variable Names 


Name 

Type 

Description 

INCHX 

Integer 

Number of inches for the horizontal scale (x), 

XMIN 

Decimal 

Minimum value of X, to appear at lower left 
hand corner of graph. 

DX 

* 

Dec imal 

Ax, per inch of graph. 

The 

entered 

following variables are 
if their value should be 

set to 0 in the program and need only be 

1. t 

PLTM 

Integer 

= 1, plot mass 
= 0, no mass plot 

PLTZR 

Integer 

~ 1» plot roll inertia 
= 0, no roll inertia plot 

PLTAE 

Integer 

= 1, plot axial stiffness coefficient 
= 0, no axial stiffness coefficient plot 

PLTJG 

Integer 

= 1, plot torsional stiffness coefficient 
= 0, no torsional stiffness coefficient plot 

PLTZ 

Integer 

= 1, plot C 
= 0, no z, plot 

PLTZPR 

Integer 

= 1, plot 
= 0, no V Plot 

PLTT 

Integer 

= 1» plot tension or torque curves 
= 0, no tension or torque plots 

MPLT 

Integer 

= 1, torque (tension) plots for each of 3 



modes will be drawn on separate grids 
= 0, all 3 modes of the torque (tension) plots 
will be drawn on the same grid. 


The following variables are set to 1 in the program and need only be 
entered if their value should be 2. 


Integer = 1, use ascale subroutine to find appropriate 

scale values for mss or roll inertia 
plot 

=2, read in mass minimum and Amass or roll 
inertia minimum and Aroll inertia 
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Name 


Description 


use Ascale subroutine. to find appropriate 
scale values for axial or torsional 
stiffness coefficient plot 
read in axial or torsional stiffness 
scale values 

use Ascale subroutine to find appropriate 
scale values for £' plots 
read in £' scale values 

use Ascale subroutine to find appropriate 
scale values for torque (or tension) 
plots 

= 2, read in torque (or tension) scale values 
If NMZR - 2, input the following: 

MZRMIN Decimal minimum scale value for mass (or roll inertia) 

DMZR Decimal Amass (or Aroll inertia) value, per inch, 

total 4 inch grid 

If NMAEJG = 2, input the following: 

AJMIN Decimal minimum scale value of the axial (or> torsional) 

stiffness coefficient 

DAEJG Decimal Aaxial (or torsional) stiffness coefficient, 

per inch, total 1+ inch grid 


If NZAPR =2, input the following: 


ZPMIN1 

Dec imal 

minimum scale value of 


DZP1 

Decimal 

Ac’, scale value per 1/2 inch, 
grid 

total 1 inch 

ZPMIN2 

Dec imal 

minimum scale value of f- 


DZP2 

Dec imal 

A£', scale value per 1/2 inch, 
gr?d 

total 1 inch 

ZPMIN3 

Dec imal 

minimum scale value of 


DZP3 

Decimal 

A?' , scale value per 1/2 inch, 
inch grid 

total, 1 


Type 

NMAEJG Integer = 1, 

= 2 , 

NZAPR • Integer = 1, 

* 2 , 

* 

NPLTT Integer = 1, 
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Name 

TMIN 

DTT 


If NPLTT = 2, input the following: 
Type 

Dec imal minimum 

Decimal Atorque 

total 4 


Description 

scale value of torque (tension) 

(Atension) scale value per inch, 
inch grid 
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OUTPUT 


Printed 

After the title cards are printed, the input controls data is listed. If 
ISID = T, the physical characteristic at only the input stations are printed. 

If ISID = F, the physical characteristics at all stations are printed. The 
total mass, static moment, and center of gravity for the branched beam are 
printed for both the longitudinal and torsional vibration analysis. 

An option has been made available to print the non-dimensionalized fre- 
quency and the corresponding determinant values for [U] throughout the itera- 
tion process. This print is requested by inputting a minus sign in front of 
the desired nomode value, i.e. , NOMODE = -3» 

/ 

IF ISOD = T, the modal frequency, generalized mass, and station properties 
are printed at each input station only. If ISOD = F, the modal frequency, 
generalized mass, and station properties are printed at all stations. 


Plotted 

If PLOT = F, or is not entered, no plots are made. One or more variables 
may be plotted against X on the Calcomp plotter if PLOT = T. A header card 
and $NAM1 namelist must be read into program if plot = T. See figure 7 for 
a sample of the request card for the plots. Also, if PLOT = T, a statement is 
printed as each plot is completed. 
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DIMENSIONALIZATION 


The following equations are used in the nondimensionalization and modi- 
fication of the input values. 

X = (x) ( xmod)/ (rfx) 

MASS = (MASS ) ( MASMOD ) / ( RFMASS ) 

AE = (AE)(AEMOD)/(RFAE) 

JG = ( JG) ( JGMOD) / (RFJG) 

ZR - (ZR) (ZRMOD ) /(RFZR) . , 

OMEGA = ( OMEGA ) ( RFX ) ( RFMASS ) ^ / (RFAE ) J ‘ / Z. . 

DELOMG « (DEL0MG)(RFX)(RFMASS) 1/2 /(RFAE) 1/ ^ 

TRNS = (TRNS) ( RFX )/ (RFAE ) 

TRNFIJ = ( TRNFI J } ( RFAE ) / ( RFX ) 

TRNFIK = (TRNFIK) (RFAE ) /(RFX ) 

TRNFIL = (TRNFIL) (RFAE) /(RFX) 
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DISCUSSI01I OF COMPUTER PROGRAM 


As described in the Application of the Method to Torsional Vibrations, the 
equations for the torsional vibration analysis are analogous to the equations 
for longitudinal vibrations. 

The namelist method of input is used in this program, see CDC 6600 Computer 
Systems Fortran Reference Manual for a description. The namelist $LOHVIB is 
used to input the modal data for the longitudinal analysis. The namelist 
$TORVIB is used to input the modal data for the torsional analysis. Since the 
"two analyses are analogous, the corresponding inputs of the two namelists are 
equivalenced. 


The input to this program consists of the necessary physical characteristics 
of the structure, definition of the boundary constraints, and controls to 
define options. In order to assist the user, it is necessary to elaborate on 
some of these terms. 


Beam .- The vehicle or structure under analysis is composed of a system 
of beams or "members". Because of the program's ability to analyze branched 
beam problems, the basic structure characterized by a straight continuous 
elastic axis is referred to as a main beam; appendages which are attached to 
the main beam having elastic axes parallel to the main beam are then referred 
to as branches. 


Joint .- The ends of the members are called joints. The word "Joint" 
describes the beginning and the end of a member between which the number of 
stations are used to describe the physical characteristics of a member. 

A uniform continuous beam may be described by a single member having two ends 
and therefore, "two joints", or it may be described by any number of members 
having the appropriate number of Joints, with the relationship between Joints 
described by translational constraints. For example, two identical beams are 
represented in sketch lMa) and (b). 


© 

(a) 

© 

m ■ a 

a 

m a 

© © 

© 

(b) 

© 

© 


Sketch 1^.- Beam- joint arrangement. 
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Beam (a) consists of a single member with joints (l) and (2), the boun- 
dary conditions at the end are considered to be free- free. Joint 1 then has 
only a "J" member referring to sketch lit. Joint 2 has only an "i" member. In 
sketch llt(b) the same beam may be represented by four members with the extremes 
of the beam having the same boundary conditions. Joint 1 again has only a 
"J" member. Joint 2 has two members, 1 and 2, with member 1 the "i" member and 
member 2 the "j" member. Because (a) and (b) are identical uniform beams, 
members "i" and "j" at joint 2 are fully constrained as well as Joints 3 and It 
^ith joint 5 identical to Joint 2 of (a). It can be seen that the characteris- 
tics of both beams are identical. There are many uses for dividing beams into 
several members. For example if a change in the physical characteristics were 
required in the second quarter of the beam in figure lit it could only be 
necessary to describe member 2 in sketch llt(b). If, however, the beam as 
described in sketch lit (a) were utilized then the entire beam input would have 
to be reentered. 


Physical characteristics . -The physical characteristics necessary to compute 
the natural longitudinal modal data are entered as a continuous system and 
include mass and axial stiffness. The physical characteristics necessary to 
compute the natural torsional modal data include the torsional stiffness and 
the polar mass moment of inertia. 


Output .- First the input data is printed, then the total mass, center of 
S^'S’V’ity , and the rigid body static moment of the beam being analyzed are 
printed. Also the generalized mass for each mode is printed for the longitu- 
dinal case. Next, the modal frequencies, both in cycles per second and radians 
per second are printed. Finally, at each station, four of the modal 
characteristics are printed. 


Test problem.- An idealized beam, as shown in sketches 11 and 12 will be 
used to exercize the subject program. The necessary physical characteristics 
are provided. Two separate cases will be run. First the longitudinal modal 
data will be computed. The data required will be the first five longitudinal 
natural frequencies, mode shapes, axial forces, and the first derivatives of 
the axial forces, and mode shapes. Also, the static moment, center of gravity 
and total mass of the beam are required. In addition, the generalized mass 
is required for each mode. 

.In the second case, the torsional modal data will be calculated. The data 
required will be the first five torsional modes, torques, and their derivatives. 
The static moment, center of gravity, and total mass of the beam are also 
required. The generalized mass is not output for the torsional modes. 


Identification.- Any number of cards may be used to identify or describe 
the problem with a minimum of one. However, the first card will be used as a 
title on each page of the printout. The contents of all of the title cards 
will be printed at the beginning of the printout. 
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Data .- Immediately following the identification cards are cards containing 
the physical characteristics of the problem. For the longitudinal case each 
set of data for each beam member begins and ends with $LONVIB and contains; 
first, TIME, which is an identifying time; second, NON, the number of stations 
of input for the member; third, BEAM, a number identifying the member; and 
fourth, the characteristics of the member X(N), MASS(N), AE(n). The data for 
each member is entered in the order established in sketch 12. Although the 
beam is numbered in the data, the program numbers the members in the order in 
which they are entered. 


The input for the torsional vibration data is identical to the longitudinal 
Vibration case with the exception that $T0RVIB is substituted for $LONVIB, 

ZR(N) for MASS(N), and JG(N) for AE(N). 


Examples: 


or 


$L0NVTB 

BEAM = 1, TIME * 0.0, NON = 2, 
X(l) = 0.0, Uo., 

MASS ( 1 ) = 0.0009, 0.0009, 

AE(1) = 36815625., 36815625.,$ 
$LONVIB 

BEAM - 2, TIME = 0.0, NON - 2, 
X(l) = 40., 120., 

MASS(l) = 0.000144, 000144 
AE(1) - 5890500., 5890500., $ 
$L0NVIB 

BEAM - 3, TIME - 0.0, NON - 2, 
X(l) = 40., 120., 

MASS(l) = 0.0009, 0.0009 
AE(1) = 36815625., 36815625., $ 


$TORVIB 

BEAM » 1, TIME = 0.0, NON = 2, 
X(l) = 0.0, 40. 

ZR(1) = 0.00220106, 0.00220106 
JG(1) = 6200000., 6200000., $ 
$T0RVIB 

BEAM = 2, TIME = 0.0, NON = 2 
X(l) = 40., 120., 

ZR(1) = 0.0000045, 0.0000045 
JGC1) = 76699., 76699., $ 
$T0RVIB 

BEAM = 3, TIME = 0.0, NON = 3, 
X(l) = 40., 120., 

ZR(1) = 0.00022, 0.00022, 

JG(1) = 6200000., 6200000.,$ 


Joint description .- The next group of data informs the program of the 
proper assembly of members that have been input , describes the constraint 
units at each joint, and essentially buildB the mathematical model of the 
beamlike structure. For the test problem, the relation holds as shown in 
sketch 12. The test problem member and the Joint relationship is shown with 
joints listed in the first column and the associated members tabulated as 
illustrated in Table IV. 
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JOINT 

MBRI 

MBRJ 

MBRK 

MBRL 

1 

0 

1 

0 

0 

2 

1 

3 

0 

2 

3 

2 

0 

0 

0 

k 

3 

0 

0 

0 


TABLE IV 

Joint Arrangement 


The next relationship to he shown is the listing of the constraints 
between members at their joints. The constraints for the test problem are 
illustrated in Table V. 


JOINT 

IOJTRN 

IJTRN 

IKTRN 

ILTRN 

1 

3 

0 

0 

0 

2 

3 

1 

0 

2 

3 

3 

0 

0 

0 

h 

3 

0 

0 

0 


TABLE V 


Joint Constraints 


The codes for constraints are; 1 = fully constrained or fixed, 2 = partially 
constrained, 3 = no constraint or free. If no relationship exists a zero is 
entered. The second column describes the constraint between either the i or J 
member and the ground. The test beam has no constraint to ground at any Joint, 
and therefore code 3 is entered. Column 3 describes the translational con- 
straint between members i and J at each Joint; similarly the fourth column 
describes the constraint between i and k and the fifth column describes the 
constraint between i and l. If no relationship exists, then zero is entered. 

The remaining, data necessary to complete the joint description are the 
values for the partial constraints to indicate the degree of the constraint. 

The tabulation is Bhown in Table VI for the test beam. 


72 





















JOINT 

TRNS 

TRNFIJ 

TRNFIK 

TRNFIL 

1 

0 

0 

0 

0 

2 

0 

0 

0 

1x10“ 5 

3 

0 

0 

0 

0 

k 

0 

0 

0 

0 


TABLE VI 


Joint Partial Constraint Coefficients 


This Data group is entered as $JOINT and. is input once for each problem. 
All data shown in Table I must be entered. All data shown in Tables 1 IV and 
V must also be entered except where the data is zero. 

Example : 

$J0INT 

MBRI(I) = 0, 1, 2, 3, 

MHRJ(l) = 1, 3, 0, 0, 

MBRK(l) = U«0, 

MBRL(l) = U*0, 

IOTRU(l) ■ U*3, 

IBTRN(l) = 0, 1, 0, 0, 

IKTRN(l) = 4*0, 

ILTRN(l) = 0, 2, 0, 0, 

TRNS(l) = 4*0, 

TRNFIJ(l) = 4*0, 

TRNFIK(l) = 4*0, _ 

TRNFIL(l) = 0, l.xl0~ ,0, 0, 


Controls .- Further Input is necessary to control the computer in its 
solution of the modal data. The first part of the control input is called 
$C0NTRL. It modifies the input parameters. The input $L0NVIB or $TORVIB 
which is originally dimensional becomes non-dimensional through controls in 
the program. 

The reference mass, RFMASS, the reference length, RFX, and the reference 
axial stiffness coefficient, RFAE should be set « to 1.0. Non-dimensionaliza- 
tion of the physical characteristics was necessary in the lateral vibration 
program because of the combination of very large and very small terms in the 
frequency determinant. However, this situation does not exist for the 
longitudinal and torsional vibration program. 
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The second function of the $CONTRL group is to provide parameter modi- 
fiers. This group contains a group of variable multipliers that operate on the 
input physical characteristics before they are used in the program. These 
modifiers may be used to convert the units of input to the desired units. 

Also, since tables of stiffness coefficients are occasionally premultiplied 
by a constant to simplify the tabulations, these may also be entered and 
the proper modifier entered to correct the tabulated characteristics. These 
modifiers are entered only when not equal to one. 

The final item of input in this group is DELX. This variable introduces 
additional stations in areas where the distance between stations of input is 
greater than desired for accuracy. The equations in the program are based on 
linear change of modal characteristics between stations along the length of 
the beam. Also the lengthwise integrations require sufficient stations in 
order to be able to assume linearity between steps. A value for DELX equal 
"k® 1/100 of the total length of the beam is usually adequate, and stations will 
be added only when the value of X n+1 - X n > DELX, with linear interpolation 

of physical characteristics for the added station values. This completes the 
$C0NTRL group, and an example follows: 

Example: 

$CONTRL 

' RFX =1.0, RFMASS = 1.0, MASMOD = .01 
RFAE = 1.0, AEMOD = 1.E8, DELX = 2.0, $ 

•?r 

The next group of input is called $M0DES and provides the information 
necessary to calculate the natural frequencies. The frequency at which the 
search routine will start is OMEGA; the increment of w in the routine, 

DELOMG ; the tolerance at which the routine is considered to have solved for 
a natural frequency, OMGTOL; the number of modes to be solved, N0M0DE; the 
mode number to be assigned to the first mode of input, FRSTMD; and finally 
the normalizing criteria, NORN, NORMBR, N0REQM. 

The use of OMEGA to start the frequency search routine serves two 
purposes . First, the routine should be started somewhat lower than an 
estimated fundamental frequency to make optimum use of the computer time, 
especially in very stiff beams where the fundamental frequency might be high. 
Second, it allows the frequency search routine to start at a higher mode than 
the fundamental without calculating lower modes. OMGTOL is the relative 
^■^" ererice crial frequencies, used in the frequency search routine. OMGTOL 
is normally set at l.xl0~°, giving excellent results with optimum use of 
computer time. FRSTMD is used only when the frequency search routine is asked 
to start at other than the fundamental mode. Normally, FRSTMD is set 
internally equal to 1 and titles the first mode of output as "Mode 1" with 
arithmetic progression of successive modes of output. 
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The program has the capability of normalizing to unity at either the 
station of maximum deflection or at any particular station on the beam. Also 
it can normalize the mode shape so that the generalized mass is equal to 
unity; To normalize at maximum displacement equal to unity set NORDIS = T; at 
generalized mass equal to unity, NOREQM = T; at a particular station equal to 
unity, NORMBR = member containing the station, and NORN = number of the station 
in the member. The data for the test case is shown in the following example. 

Example ; 

$MODES 

OMEGA =25., DELOMG = 200., 0MGT0L = l.E-7, 

N0M0DE = 5, NORDIS = T, $ 

The final group of input describes the output desired. The output will 
contain a complete listing of input, complete in such detail that the program 
may be reconstructed from this data alone. The physical characteristics are 
arranged in the proper size with headings for direct integration into reports. 
The stations are listed in a double set of integers with the first integer 
identifying the member and the second the station of the member. Immediately 
following the physical characteristics, the center of gravity, the total mass, 
and the rigid body static moment of the problem are printed. 

The last item of output contains the modal characteristics as computed in 
the subject program. Each page of this modal data contains the contents of the 
first identification card, and also the number of the mode. The output, on 
the first page for each mode, also lists the natural longitudinal or torsional 
frequencies of the mode in both cycles per second and radians per second. In 
addition, the generalized mass for the normalized mode shape is printed for 
the longitudinal case. 

Following this information are six columns of modal data. The first two 
are always the station number and its lengthwise location with respect to the 
established origin, respectively. The next four columns are the modal 
characteristics. This type of output is repeated for the required number of 
modes. All output may be printed at only the points of input or may include 
the additional stations provided by DELX. Additional outputs are a plot 
option which gives Calcomp plots. 

This final group of data Is called $0UTPOT. Four of the modal 
characteristics will be output. ISID calls for printing the input 
characteristics at either the original stations or including the stations 
added by DELX, and similarly, ISOD controls the output print. Both are set 
to F internally and need to be entered if only the input stations are to be 
printed. If only stations of input are desired set ISID = T, and if all the 
stations are desired for output set ISOD = F. In the same manner, if plots are 
desired, set PLOT = T. The identification for the column of output assigned to 
the modal characteristics does not include the first two columns which are 
always "station” and "X". The following example applies to the test problem. 
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Example : 


$OUTPUT 

ZTAC = 1, DZTAC = 2, TENS = 3, DTENS = h, 

ISID = T, ISOD = F, $ 

This data states that after each station and its appropriate "X" location 
the first column will he deflection, zeta (ZTAC = l); the second column will he 
the first derivative of the deflection, (DZTAC = 2); the third column will he 
the axial force, (TENS = 3) or for torsional vibration the torque, (TORQ = 3); 
and the fourth column will be the first derivative of the axial force (DTENS = 
k) or the first derivative of the torque, (DTORQ = U). The input is terminated 
with $END. 

This concludes the formal presentation of input required for this portion ■ 
of the program. The second part of the program is designed to plot upon 
request any or all of the following depending upon the analyses: mass or roll 

inertia; stiffness coefficient, deflection or rotation; axial force or torque; 
and the corresponding first derivatives. The plots will he drawn for the 
first modes of the analysis. If plot = T in the $0UTPUT group then $NAM1 must 
he read. This group includes all of the plot options and the appropriate 
scales to he used in the plots. 


Concluding remarks on computer program ..- It should be emphasized that due to 

the 

that 1/100 of the length of the beam gives very good results for the first 
five modes. Another benefit derived from the additional stations inserted in 
spans of constant parameters is in the quality of the plots of output 
characteristics with the additional points. The total number of added stations 
due to DELX cannot exceed 600. The total number of branches and beams cannot 
exceed 20. 

A misleading situation may occur when values of AE or JG are near zero. 

This situation may occur at the free end of beams. The problem manifests itself 
in a radical variation of the mode shapes in the area approaching the upper 
boundary of the span. This variation is a combined result of near zero stiffness 
of AE and/or JG and the failure to achieve numerically the absolute zero. This 
condition is readily corrected by avoiding near the free ends, AE and JG values 
of less than 0.0001 of their respective average over the total span. 

The output will be only as good as the math model representing the problem. 
With a proper input, the user can expect frequencies of the lower modes of 
vibration to be accurate within less than 1/2 of one percent. Some feeling 
for the accuracy may be gained by investigating the modal characteristics at the 
boundaries. The absolute value of zero for some boundary conditions of free- 
free beams cannot be achieved by digital computers, therefore the analyst 
should accept finite boundary values that are a fraction of 1 percent of the peak 


the assumption of linearity of the system variables over the length X to 
X n+1* this increm ent must be small. Though studies conducted of comparing 
frequency accuracy as a function of station separation, it has been found 
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absolute value of their respective functions over the length of the beam. 
Another suggestion for gaining confidence in the modal data is to observe the 
continuity of the displacements and the axial forces or torques in areas where 
branches are attached to main beams. 
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APPENDIX B 

COMPUTER PROGRAM LISTING 


78 



000003 
000003 
000003 
000004 
00000? 
000006 
0000 10 
000011 
00001 Z 1 

000015 
000021 2 
000030 
000033 
000035 3 

000 n 40 
000042 

C 

000042 4 

000042 


OV€*UYUINK t OfOI 

PROGRAM TORLONG« INPUT»201 f 0UTPUT-*201 fTAPE5»INPUT # TAPE6*0UTPUTtTAPE A 


I 2 e ?01 ♦ TAPE 3 # TAPE 4®2011 1 
COMMON NPLOTfENOFlL? 

INTEGER ENOFIL? 

NSUM^O 

EN 0 FU 5 *! 

NPLOT^O 
t INK« 4 Lt!NK 
CALL CALCOMP 
CALI LEROY 

CALL OVERLAY '(t!NKfl‘« 0 » 0 ! 

IF ( ENOFl L? *EQ *0 1 2»3 
IF <N$UM*GT.O> WRITE I 6 t 4 ) NSUH 
CALL CALPLT < 0 ,, 0 . f 999 > 

STOP 

CALL OVERLAY IL|NK f 2 *O t O» 

NSUMwNSUM^NPLOT 

GO TO 1 

FORMAT </ 24 H TOTAL NUMBER OF PLOTS 
ENC 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

v 15) A 

A 


X 

z 

3 

4 

5 

6 
T 
B 
9 

10 

n 

12 

13 

14 

15 

16 
17- 
18 

19 

20 
21- 


vo 



c 

000003 


000HO3 

000001 

00000? 

000003 

000003 
00000? 
000003 
000003 
000003 
000003 
Oo 000003 
° 000003 


00*003 


000003 

000003 

c 

000003 

000003 


c 

000003 


OVERLAYClINKftjO) 

PROGRAM VTBftAT 

TITLE BRANCH BEAN TORStONAL AND LONGITUOTNAL VIBRATIONS ANALYS 
DIMENSION TJTLEI28J » HEADNG12*4I* TITLESI2*6f» EAI600I* STNUOOI* 
1SSAMI 600) * HI 1 600) * DYI2*600I* YI2»6G0I* TITK12I* F0RNI8I* VARNOI 
2A>» MASS! 6091 » NUMI20I* MBRM30) * t04TRNI30l* M8RII301* LVC6I* MBR 
3L I 301 1 I JTRNOOI * MBRJC301* MVI6I* SANflOl* ILTRNC30.I* IKTPN<30>» 
tnMFGn.2), F0RMAI2F1, 0MF0PMI7) 

OTMENStON AEI6n?) f ZR<600>* JGI600I* APRY(31* LARRYI31 * TARRYI 31 
COMMON NPL0T»ENDFTL5 


INTEGER ENDFIL* 

COMMON /BIK1/ JCI30*8)»TPNS<?0)*TPNFI JI30)»TRNFIK(30ltTRNFILI30l*4 
NT 

COMMON /BLR?/ XlfOOl *HHI600I , MAS 16001 *NSTAI301 

COMMON /BLK3/ Ut 100* 601 » B I 2* 2 * 30 ) t OMEGA, NOMBP t TEMPI 2* 30 1 »GMASS. 

COMMON /BLK4/ U0ET(?01 ,NU,DELOMG,OMGTOL*!T,ITER.NUCT 

COMMON /BLK5/ NFRQ,NTP0Ln.3)tFRSTMD 

INTEGER ZTAC * OZTAC* TENS* DTENS*FRSTMO» TOP QtOTORQ 

REAL MAS5*MCMP.*MAS*MASM0D* JG* JGMOOtLARPY 


LOGICAL ISIO*ISOO,NORDIS,NOREQM*FLCT,TOPVB 

FQUI VALFNCE ( EA*HH* AF* JG) » (RFAE*PFEA,PFJG1» I EAMOD* AEMOO* JGMODt * 
l(PFMASS*PFZRl, I MASMOD,ZRMODI » (TENS*TORQ)» ( DTENS* DTORQ I » (MASS»M 

2 E0UIVUFNC6 (MBRK11* JC(l*l) I* IHBPJlil* JC 1 1*21 1 * IMBPKC 1) * JC(1»3I 
U* ( MBBL II I * JC 1 1* 41 >» IIOJTPNIU ,JC(1*5I>» 1 1 JTRNCl I » JCI 1*6) ) * I IP 
2TRNI 11* JC (1*711* I ILTRN( 1) *JC(t*8)) 

FQU* VALFNCE (U,Y», I U( 1 * 13 1 * OY I » I U( 1 *25 ) * STN J * < U 1 1*31 ) » SSAH) * <U 


1(1,37>,H11 

OAT A 00LLAR/2H $/*F/3H F/»T./3H T/ . 


DATA (TITLI I 1 * I *! * 8 ) /6HL0NVI 8* 6HT0PVI B* AH JOI NT *6HC0NTPL»6HINPFRQ, 
16HMOOFS ,6H0UTPUT,6HEND / 

0A t a F0RM/39HI 5X»I3»lH-*I3* OPF10.3*0P /*FORM( 5) /6HE14.5 1 /» ( VA 
lPN0m*I-l»4)/2H !*2H 2* 2H 3,2H 4/»BLANK/6H /*RF J/6HRF JG -/»R 
2FZ/8H RFZR »/ * PFA/6HPFAE -/*PFM/8HPFMASS */ * PN0RE/9MN0REQM * /*ZR 
3M/8H ZPMOO ■/* ASM/BHMASMOO «/, AEM/7HAEM0D -/*G JM/7HJGM00 ■/ * LARRY/ 
430H FOR LONGITUDINAL VIBRATIONS /.TARRV/30H FOR TORSIONAL VIBRATt 
SONS /* ZR IN/4H ZR/»G JIN/2H JG/»RMINP/4HMASS/»RAE/2HAE/ 


OATA TITLEStl*ll/6H TEN/*T!TLES(1»2>/6H l/*TTTLES(l»3)/6HTEN 
1S T 0/»TITLES(1*4 1/6H ZETA-/, TITLES! 2* 1 l/4HS!0N/*T.TLESI2» 21/3HETA/* 
2TmES(2,3)/6HN-PRIM/,T!TLES(2.4)/5HPRlME/»TITlES(l*5l/6H TOR/»T 


8 t 
B 2 
6 3 

e 4 
B 5 
B 6 
B 7 
8 8 
B 9 
B 10 
B 11 
B 12 
B 13 
B 14 
B 15 
B 16 
B IT 
R 18 
8 19 

B 20 
8 21 
B 22 
B 23 
B 24 
B 25 
B 26 
8 27 

B 28 
B 29 
B 30 
B 31 
B 32 
B 33 
B 34 
B 35 
B 36 
B 37 
B 38 
B 39 
B 40 
B 41 



c 

000003 


c 

000003 


000003 

000003 

000003 

000003 

000003 

000003 

ooooba 

00000 ? 


3meSf2t5)/3H0Ue/,TTTLESa,6)/6HT0RQUe/»TI TLES(2 t 6 > /6H-PRIME/ 

OAT A F0PMA/260H11H 54Xf8HTABLE II _ _ 

1 //40XA2*13A6//50X3HT *F8*2f4H 

2 sec //56X,4WHODEl3//5X f ?8HFPEOUENCY CYC 

3LES PER SECOND Fl2*3//5Xt 28HFREQUENCY RADIANS PER SECOND F12*3t 

4 / / 

OATA 0NF0RN/70HF12*8 «F12*7 t F12.6 »F12*5 tF12.4 tf 

112*3 tE16.8 ♦/ 

NAMELIST /LONVfB/ X, MASS t AE f NON, TIME t BEAM 

NAMELIST /TNPFPC/ ONFG/MOOES/NOMOOFf OEtCMGi OMGTOt »NORNfNOflMfift#NORD 
II S t NOREOM t OMEGA , FRSTMD 

NAMELIST /JOINT/ TPNS t MBRt ,N9R Ji M8PK» MBRLt 10 JTRN, I JTRN f IKTRN, ILTRN 
1*TRNFI J t T»>NF!K # TftNFU * 

NAMELIST ./CONTPL/ RFXiPFMASSrPFAEiXHODf HASNOO i AFKOD fCELXt JGHOD*ZRH 

^N^MELIST /OUTPUT/ ZT-ACt DZTACtTENSf DTENSf ISIOtl SOO*PLOTf TORQt DTORQ 
NAMELIST /TORVIB/ X v ZR t JG« NONfTINE « BEAN 

REWIND 3 
REWIND 4 


000007 

1 

CONTINUE 

foTj. 000007 


00 2 1-1,30 

H j, 00001 1 


TPNSm«0. 

' 000012 


TSNFI JUH. 

000013 


TRNFIM 1 1-0., 

000014 


TRNFILtn-O, 

000015 

t 

CONTINUE 

000017 

• ■ 

DO 3 1-1,12 

000020 


OMEGITJ-O. 

000021 

3 

CONTINUE 

000023 


DO 4 1-1,8 

000024 


DO 4 J-1,30 

000025 

4 

JC( J, I 1-0 

000036 


K-0 

000037 


M-0 

000040 


KK-0 

000041 


MM-0 

000042 


1FP0-0 

000043 


ITAC-0 

000044 


DZTAC-0 

000043 


TENS-0 


* 42 

» 43 

e 44 

e 45 

B 46 
B 47 
B 48 
B 49 
B ?0 
B 51 
B 52 
B 53 
B 54 
B 55 
B 56 
B 57 
B 56 
6 59 

B 60 
B 61 
B 62 
B 63 
B 64 
8 6« 
B 66 
B 67 
B 68 
B 69 
B 70 
B 71 
B 72 
B 73 
B 74 
B 75 
B 76 
B T7 
B 78 
B 79 
B 80 
B 81 
B 82 
B 83 
B 84 



000046 

00004? 

000050 

000051 

000052 

0000*? 

0000*4 

000055 

000056 

0000*7 

000060 

000061 

000062 

00006? 

000064 

00006? 

000066 

000077 

000102 

000103 

000105 

000117 

000131 

000133 

000!*5 

0001*6 

000150 

0001*2 

000170 

000172 

000202 

000204 

000207 

000210 

000212 

000214 

00021 ? 

000217 

000221 

000223 


DTENS-0 
NOPN-O 
N0°RBP-0 
FRSTRD-1 
PLOT-. FALSE. 

isto®. false. 

ISOO*. FALSE. 

NOROIS-. FALSE. 

NOREQM*. FALSE. 

RFEA-1. 

RFX-t. 

RFM4SS-1. 

EAMOO-l. 

XMOO-! • 

MASMQD-l. 

DELX-] . 

C ##.. READ TITLE CAROS 

READ !5, 1001 ITITLEI I 1,1-1,14) 

IF t ENOFILE 5» 5,6 

5 EN0FTL*»0 
RETURN 

6 WRTTE 16,1011 (TITLE! T ) ,1-1,14) 

7 READ <5, lOOt (TITLEIII, 1-15, 281 
IF (001LAR.E0.TlTLE(15»t 60 TO 8 
WRITE 16,102) (TITLE1 I), 1-15,28) 

60 TO 7 

8 BACKSPACE * 

DO 9 1-1,0 

IF (TITLEI16>.E0.TITUt) ) 60 TO (10,13*14,18,19,22,23,24), I 

9 CONTINUE 

WRITE (6,103) TtTLE(15), TITLE! 16) 

STOP 

C .... READ STATION OATA 

10 READ ( 5 ,LONVIB) 

TOPVB-. FALSE. 

11 W=M*1 
NUM! M)-NON 

C .... MOVE OATA TO ARRAY BEHIND LAST ONE READ. 

00 12 L»ltNON 
K-K41 

STNtK)-X(L) 

HI (K)-EA(L) 

SSAHIK)-HASS!U 


8 85 

8 86 
8 87 

8 88 
8 89 

8 90 

8 91 

8 92 

8 93 

8 94 

e 95 

8 96 

8 97 

8 98 

8 99 

8 TOO. 
B 101 
B 102 
B 103 
8 104 
8 105 
8 106 
B 107 
B 108 
8 109 

r no 
8 111 
8 112 
8 113 
B 114 
6 115 
8 116 
6' 11? 
B 110 
8 119 
8 120 
8 121 
8 122 
8 123 
8 124 
8 125 
8 126 
8 127 




000225 

12 

CONTINUE 


000230 


N0K8R=M 


000231 


GO TO 7 


000232 

13 

PEftO (5,T0RV18I 


000235 


T0«V8*.TRUE. 


000236 


GO TO 11 


0002*7 

!4 

READ <5* JOINT) 


000242 


00 16 1-1,30 


000244 


OO 13 J»l,4 


000245 


IF ( JCUi JI.NE.Ol GO TO 16 


000250 

15 

CONTINUE 


00025? 


GO TO 17 


000252 

16 

continue 



C 

.... JNT - NO. OF JOINTS 


000234 


JNT-30 


000235 


GO TO 7 


000256 

17 

JNt-I-1 


000260 


GO TO 7 


000261 

IB 

READ ( 5 rCONTRt ) 


000264 


GO TO 7 


000265 

19 

READ !5,INPFRQ1 


000270 


00 20 1*1,12 

«*v 

fn 

000272 


IF ( OMEG! III 20,21,20 

u> 

1 000273 

20 

CONTINUE 



C 

.... TFRO - NO. OF INPUT FREQUENCIES 


000275 


IFPQ-12 


000276 


GO TO 7 


000277 

21 

1FRQ-I-1 


000301 


GO TO 7 


• -302 

22 

READ <*» MOOES) 


000305 


GO TO 7 


000306 

23 

READ <*, OUTPUT I 


000311 


GO TO 7 



C 

.... ALL INPUT IN, BEGIN CALCULATION 



C 

.... READ TO SKIP *END CARO 


000312 

, 24 

READ 15,1001 TITLE! 151 


000320 


NPPNT*0 


000321 


IF ( NOHOOE.GE*t)l GO TO 25 


000323 


NOKnOE=— NOMOOE 


000323 


NPPNT»1 


000324 

25 

NN-0 


000325 


DO 26 TI«1,N0NBR 


000327 

26 

KN-HN+NUMIII 


8 126 
a 129 
8 160 
fl 131 
8 132 
8 133 
B 134 
B 139 
e 136 
B 137 
B 130 
6 139 
e 140 
B 141 
6 142 
B 143 
B 144 
8 145 
6 146 
B 147 
B 140 
B 149 
B 130 
B 131 
B 152 
B 153 
B 154 
B 153 
B 196 
B 137 
6 158 
B 159 
B 160 
3 161 
8 162 
B 163 
B 164 
B 165 
B 166 
£ 167 
B 168 
B 169 
B 170 



Oo 

P- 


000333 

000334 

000334 

000341 

000343 27 

000345 

000346 

000347 

C 

000350 
00035 ) 
000353 28 

0003*5 

000356 
000361 
000362 
000364 
000366 
000370 29 

C 

000375 

000376 

000401 

c 

000*03 

000411 
000416 
000424 
000424 30 

000430 

C 

000431 31 

000433 32 

C 
C 

000436 33 

C 

000441 34 

C 

000443 
000445 
000465 
000467 35 


DO 27 

SYNnU=STNIIt»*XMOD 
mnn=Hi(Tn*EAMoo 
SS«M1I I )~$SAM< II l*MASMOD 

CONTINUE 
L=0 
K^O 
1 = 1 

♦do. EXPAND STATION OATA ARP AYS IF NECESSARY 

DO 32 M=J,NOM0R 
L=NUMIM)*L 
1 = 14-1 
K«K*1 

IF <K.GT.600) GO TO 30 
XIKI=STN<!~1) 

HH|K)*HU1-1 1 
*AS(K)*SSA«(T-I) 

TF f I-L I 29, 29, 31 ' 

IF ( (STNUJ-XtK) I.IE.DELXI GO TO 28 

.... INSEPT EXTRA POINT 

K=3«4-1 

IF (K.GT.600I GO TO 30 
X(K)=X(K-1I*0ELX 

.... LINEAR INTEPPOLATION FOR ADDITIONAL VALUES 

PAPTa(x(K)-STNl T— 1 ) )/(STNII)- 5 TN< I— 1 ) | 

HHJX»=HI(I-l»«.(Him-HllI-l) |*PART 

M4S<KI = SSA»M I— 1 ) *<$SAM( I l-SSAM ( 1-1 ) )*PART 

GO TO 29 

WRTTE <6,1041 

GO TO 1 

.... NSTA ARRAY HAS CUMULATIVE NO. OF STATIONS PER BEAN 

NST4<M)«K 

CONTINUE 

.... CALCULATE THE CENTER OF GRAVITY 
CALL CGRAV (NOMBRfTOTM, TOTS, CGI 
.... PRINT OUT INPUT 
IF I .N0T.1S00I GO TO 35 

.... INPUT REQUIRED FOR FINAL OUTPUT, SAVE ON SCRATCH TAPI 
REWTNO 2 

WRITE 121 K,ISTNU),SSAM<I), Hill), 1*1, K) 

ENO FILE 2 

WRITE 16,105) ITITLEH), 1-1,14) 


9 

171 

9 

172 

B 

173 

B 

174 

e 

175 

B 

176 

e 

177 

9 

178 

B 

179 

B 

100 

B 

181 

8 

182 

B 

183 

B 

184 

B 

185 

0 

186 

B 

187 

B 

188 

B 

189 

B 

190 

B 

191 

9 

192 

8 

193 

0 

194 

B 

195 

B 

196 

B 

197 

B 

190 

B 

199 

B 

200 

B 

201 

B 

202 

B 

203 

e 

204 

6 

205 

B 

206 

B 

207 

B 

208 

B 

209 

B 

210 

B 

211 

B 

212 

B 

213 



000501 


000507 
000510 
000511 
000514 
000514 
000520 
000521. 
000523 
000524 
000525 
000527 
000530 
000532 
000*33 
000536 
000537 
000542 
000544 
2? 000545 
t 000547 
000550 
000552 
00055? 
000555 
000556 
000561 

000635 

000656 

000707 

ooono 

000711 

000712 

000715 

000735 

000736 

000737 


C COMPUTE REFERENCE VALUE FOR FREQUENCY 

OMR=*SQRT(RFE A/ (RFMASS*RFX**2) ) 

C 

C SET PPINT STATEMENTS 

C 

PR I NT l *F 
PR JNT2*P 

IF (N0R0IS1 PRINT1-T 
IF (TORVBI 36 t 38 

36 RE=RFJ 

g U~f> C 7 

PRNT2*BL$NK 
PR INT2=*PLANK 
RMMOD-ZPM 
RAMOD*GJM 
RMAS=ZP1N 
RAEP^GJTN - 
00 37 1*1*3 

37 AROV(n*TARRYMl 
GO TO 40 

30 ?F t NOR EQM J PRINT2-T 

RE-RFA 
QM=RFM 
P*NT2»PN0RE 
RMMOO* ASM 
P A MOO 3 AEM 
RHAS=RM!NP 
RAEP-PAE 
DO 30 1*1,3 

?9 ARRYU1-LARRYU1 

40 WRITE (6,106) RE,RFEA, NOMOOE, RM, RFMASS , NORMBR , PFX, NORN, OMR , PRINTI, 
1DELX, PP NT2 , PR I NT2, OMEGA, PMMOO, MASMOOfOELCMGfRAMOOfEAMOOt OHGTOL 
WRITE (6, 1071 <J, ( JCI J,I),T*l,e>, J*l, JNT> 

WRITE (6, 10B) ( J, C JC( J,1 >, 1*1,4), TRNS(J),TRNFTJ< J), TRNFIK(J) ,TRNFI 
1L( J), J»l, JNT1 
LINE** 

N*0 

NN-0 

WRITE (6,119) 

WRITE (6,109) ARRY, (TITLEH ) , I *1 ,14) ,RMAS,RAEP 
T*0 

LMAX*34 

00 46 M*l, NOMBR 


* 2t4 

* 215 

5 216 
B 217 
B 218 
B 219 
B 220 
B 221 
B 222 
B 223 
B 224 
8 225 
B 226 
B 227 
B 228 
B 229 
B 230 
8 231 

6 2 32 
B 233 
B 234 
B 235 
B 236 
B 237 
B 238 
B 239 
B 240 
B 241 
B 242 
B 243 
B 244 
B 245 
S 246 
B 247 
B 240 
B 249 
B 250 
B 251 
B 252 
B 253 
B 254 
B 255 
8 256 



000741 41 

000743 

000745 

000744 

0007*51 

00076! 42 

000763 

000764 

C 

000765 

001003 

c 

001007 43 

001025 
001031 44 

001033 45 

001034 46 

C 

001037 47. 

C 

c 

c 

c 

001051 48 

co 001053 
, os 001055 

OO105T 49 
001060 
001062 
001063 50 

001065 51 

001070 
001072 
0*1072 52 

001075 
001077 53 

001101 
001103 54 

001105 55 

001110 
001112 
001113 
001115 


UNF*UNE*1 

IF (UNE.LT.LHAX) GO TO 42 

LINF=0 

WRITE (6,119) 

WRITE (6,110) RMAS,RAEP 

NsN+1 


I»I *1 

IF ( .NOT , 1 S I 0 > GO TO 43 w 

.... PRINT OUT INPUT FOR INPUT STATIONS ONLY 

WRITE (6,111) M,N, STN( 1 1 ,SSAN( 1 ) »MI( II 

IF (N-NUW(W)> 41,45,45 

.... PRINT OUT INPUT FOR ALL STATIONS 

WRITE (6,112) N,N,X(t ) »MAS(I I »HH(1 I 

IF (N-NSTA(M)*NN) 41,44,44 

NN«NST4(M1 


N*0 

CONTINUE 


WRITE (6,1131 CG, TOTH, TOTS 

•••• in s »«« 

I;!' subsckicts »pe chosen so all output ,s 

.. PEFERENCE TO THE U ARRAY (SEE EQUIVALENCE STATEMENTS) 


DO 49 T«1 ,4 
HE 40NG (),!)* BLANK 
HEAONG(?t t )*BLANK 


CONTINUE 

NVAR-TENS 

IF (TENS) 54,54,50 
IF (TORVB) 51,52 
HFAONGd , TENS) "TITLES (l, 5) 
HE ADNG( 2, TENS) "TITLES (2, 5) 

GO TO e 3 

HE AONGI ], TENS) "TITLES! 1,1) 
HE40NGI 2, TENS) "TITLES (2, 1 ) 
LV(TENS)"! 

MV(TENS)*! 

IF (ZTAC) 56,56,55 
HF AONG( 1, IT AC) "TITLES (1,2) 
HEAONG( 2, ZT AC) "TITLES (2, 2) 
LVUTAO-2 

MV(ZTAC)"! _ 

IF (2TACAT.NVAR) 00 TO 56 


B 257 
B 258 
B 259 
B 260 
B 261 
6 262 
9 263 
B 264 
B 245 
8 266 

5 267 
B 266 
8 269 
B 270 
B 271 
8 272 
B 273 
B 274 
B 275 
B 276 

6 277 
8 278 
B 279 
B 2 A 0 
B 281 
B 282 
8 283 
8 294 
8 2BS 
B 286 
8 287 
B 288 
6 289 
8 290 
B 291 
B 292 
8 293 
B 294 
B 295 
B 296 
B 297 
B 298 
B 299 



001117 


com 7 

56 

001121 

57 

001123 

5 B 

001126 


001130 


001130 

59 

001133 


001135 

60 

001137 


001161 


001163 


001163 

61 

001165 

62 

0011*0 


001152 


001153 


001155 


001157 



C 

001157 

63 


C 

001161 


® 001163 


001165 


001166 


001 167 


001170 


001172 


001176 


001176 


001200 


001201 

66 

001203 


001205 


001207 


001212 


001213 


001215 

65 

001220 


001221 


001223 


001226 



nva«*ztac 

IF 10TPNS) 6l t 6l»57 
IF (TO&VBI 58»S9 
HEADNG!l?OTENS J“T!TtFS!ltf 1 
HEAONG! ?* OTENS) “TITLES! 2 »6) 
GD TO 60 

HEAONG! 1. ,DTENSJ “TITLES! 1*3 1 

HEADNG!2,0TENS)*T1TLES!2,3> 

LV!0TENS)«1 

MV!0TENS1*13 

IF (DTENS.LT.NVAP I GO TO 61 
NV AR =DTFNS 
IF (OZTACI 63 »63t62 
HEAONG! 1 *0ZTAC1“TITLESIlt6J 
HE ADNG! 2 » DZTAC1 “TITLES I2t6) 
LV (OZT AF ) “2 
MVI0ZTAGJ“13 

IF !OZTAC,LT.NVAF> GO TO 63 


HVAR“0ZT6C 

.... PUT PCD FORM OF NVAR 


IN PRINT FORMAT 


F0PM!6 J“VAPNOINVAR) 

.... PREPARE TO N0N-0IHENS10NAL1ZE 


ALL STATION DATA 


XH=RFX/RFEA 

X3H*XH*RFX**2 


MXI=RFFA/RFX 
HX2“HXI./PFX 
HX?“HX?/OFX 
DO 66 I “1 1 JNT 

TRNS(T)«TRNS!t)*XH 

TRNFI J! I l“TP.NFII! T )*HXl 

TRNFIK!T)*TRNFlK( I,l*HXl 

TRNF!l!tl“TPNFILin*HXl 

CONTINUE 

HCHR=1. /PFE4 

NCMR“T/RF"ASS 


XCXR “I /RFX 
00 65 T»I,K 
HH! I J*HH! 1 )*HGHR 
CONTTNUF 

OELnHG“OELOMG/€NR 
IF UFRQ.NE.OI NOMODE-IFRQ 
NOKOOE-NOHOOERFftSTHD-1 
IC0UNT*0 


§ 390 
B 301 
B 302 
B 303 
B 306 
B 305 
B 306 
8 307 
B 308 
8 309 
8 310 
B 311 
8 312 
B 313 
B 316 
B 315 
B 316 
B 317 
8 318 
B 319 
B 320 
B 321 
B 322 
8 323 
8 326 
8 325 
B 326 
B 327 
8 328 
B 329 
8 330 
B 331 
8 332 
B 333 
B 336 
8 335 
8 336 
B 337 
B 338 
B 339 
8 360 
B 361 
8 362 



00 

00 


00122* 

001231 

001233 

001237 

001241 

001243 

001245 

001247 

001242 

001253 

001254 

001255 

001257 

001260 

001261 

001262 

001263 

001264 

001266 

001270 


001301 

001303 

001311 

001313 

001314 

001322 

001322 

001324 

001326 

001330 

001332 

001335 

001340 


66 


C 


67 


C 

C 

68 

C 

69 

C 

C 

c 

70 

71 

C 

72 
C 

C 


IF I PLOT) IXPL®0 

00 99 NFPQ*FPSTND, NOMODE 

TF 4NPPNT.NE.0) WRITE 46,114) 

MST4=NSTAIN0MB») 

00 66 I n l*M$TA 
xtn=xm*xcxR 

M 4 Sm=M 4 $<I)*MCMR 

CONTINUE 

1T=1 

IF 4 TFRQ.EQ.O) GO TO 67 
.... USE INPUT FREQUENCIES 
IT *2 

PMEG A*0MEG4NFRQ> 

ITER*l 
NU = 1 


NUCT=0 . 

G^ftSS® 0 « 

.... N0N-D1MENS1GNALT2E frequency 

0 ( 1EGA=0MEGA/OMP 

.... CALCULATE A MATRICES 

CALL AMATRX 411 

.... CREATE U MATRIX 

°° to mext ohega 

|p I III l lS E BAO H OETERMINANTS, GO TO NEXT PROBLEM 
IF41EPP) 68*70,1 
GO TO 471*72), IT 
CALL ITEPAT 4IFRR) 

|F HEPR.NE.O) GO f TO E l cY tTCTAT1QN „„ CONVERGED 
GO TO (68,69), IT 

^^RECALCULATE A MATRICES FOR nodal OATA 

CALL AMATRX 421 

nTMCNCTHNALIZE MODAL OATA 


00 73 t-l,MSTA 
X4I)*XU)/XCXR 
MAS41>»NAS(1I/MCMR 
Yiitn»viifn*RF€A 

OY<ltll*OVUtl>«H 


a 343 
3 344 
6 345 
B 346 
B 347 
6 348 
B 349 
B 350 
6 351 
B 35? 
e 353 
B 354 
B 355 
8 356 
B 357 
B 358 
B 359 
B 360 
B 361 
8 362 
B 363 
B 364 
8 365 
B 366 
B 367 
B 368 
B 369 
B 370 
8 371 
6 372 
B 373 
8 374 
B 375 
B 376 
B 377 
B 378 
B 379 
B 380 
B 381 
B 382 
8 381 
S 384 
B 385 



001342 

73 

CONTINUE 


001 345 


OHCGA®OMEGA*OMR 


001346 


GMASS=GMASS*RFMA$S*PFX5*3 


001351 


VALUE®!. 


001353 


IF IN0«N1 80»80»74 



c 

.... NORMALIZE ON A SPECIFIC STATION 

I ZETA 1 


c 

.... NOPN IS THE OESIPEO STATION IN 

REFERENCE TO THE INPUT 


c 

.... LOOK FOR THE SANE STATION IN 

THE EXPANDED ARRAY. 

001354 

76 

mtct-o 


001355 


UM®N0PMBR-1 


001357 


IF (LTM.E0.01 GO TO 76 


001360 


00 75 M*ltLTM 


001361 


MTOT = MTOT«-NUMlM) 


001363 

75 

CONTINUE 


001365 


mtct*mtct*nopn 


001366 


L1=NSTACL1M1*N0RN 


001.370 


L?®NSTA l NC1RN8R ) 


001 372 


GO TO 7T 


001372 

76 

L1=NCPN 


001374 


L2-NSTAH) 


001375 


*TCT=NOPN 


001376 

77 

DO 70 M-L1*L2 


001400 


IF (AeS<STNtMTOTI~X(K>KU*. 00011 GO TO 79 

- 001405 

78 

continue 


00 001410 

79 

V41UE“Y12,M) 


001413 


GO TO 83 


001413 

80 

TF ( .NOT.NOROISl GO TO 82 



C 

.... NORMALIZE on maximum zeta 


001.415 


ALUE®ABSlVl2fl> » 


001417 


VALUE"Y(2»l> 


001420 


00 81 t*1,MSTA 


001421 


IF (ALUE.GF.A8S(Y(2»I1H GO TO 81 


001425 


ALUE*ABS< Y(2»I » » 


001430 


V4LUE®Y<2,t> 


001431 

81 

CONTINUE 


001434 


GO TO 83 



C 

.... NORMAL! ZF ON GENERALIZED MASS 


001434 

82 

IF I .NOT.NORfCM! GO TO 83 


001436 


VALUE® SOP T 1 GMAS5 ) 


001 440 

83 

00 85 1®1,MSTA 


001442 


00 84 K«lt2 


001443 


YtK,U«Y<K»I) /VALUE 


001446 


OYIKf I 1»PVIK»I)/VALUE 



B 386 
B 387 
8 2 88 
8 389 
8 390 
» 391 
8 392 
8 393 
6 396 
8 395 
8 396 
B 397 
6 398 
8 399 
B 600 
8 601 
B 602 
B 603 
B 606 
B 605 
B 606 
B 607 
8 608' 
B 609 
B 610 
B 411 
B 612 
B 613 
B 616 
B 615 
8 616 
B 617 
B 618 
B 419 
B 620 
B 621 
9 622 
B 623 
B 626 
0 625 
B 626 
B 627 
B 628 



001451 84 

001453 85 

001455 
001457 
001461 

C 

001462 
001464 
001604 86 

001 506 
001 51 l 
001513 
001523 
001525 
001525 87 

001527 88 

001551 
001560 
001577 
001603 
so 001604 
O 00'' 605 
001606 
001 607 
001610 
001611 89 

001613 
001615 
00161 6 
001621 

001650 
001664 90 

001656 
0016' 7 

C 

001660 91 

001666 
001667 
001667 92 

001671 
001674 93 

001676 


CONTINUE 

CONTINUE 

C,MASS=GMAS$/VALUF**2 
R0H e GA=0MEGA/6. 2831853 
IF i.NOT.lSOD) GO TO 86 
.... READ INPUT BACK IN 

SfA 0 N (2> K,<STNm.S$AMn,HIUI.t-lfK> 

FOPMAI25)*0MFGRHI7) 

WRITE <6 ,119) 

00 87 t 6 

IF I0MEGA'.GT.10.**U-1H GO TO 87 

F0PMA|25»*0MF0F*m 

GO TO 88 

WP I TF N (1 6 » FOB MAI | TITLE ( I ) » I-l » 1* » * TIME.NFRQ.ROMEGA, OMEGA 

IF (.NOT. TORY*) WRITE ' nur^tl ,1 1-1 NVA(U 

WRITE (6,117) ( HE AONGI 1 » l ) » HEAONGI 2,1»»I - 1 ,NVAR1 

WRITE (6,118) 

UN£ = 9 
N*C 
NN=0 
1-0 
NS«1 

00 9T M-1.NOM8R 
UNE-LfNE+1 

IF IUN6.LT. (.MAX) GO TO 90 

!!}?! &l»! HFROt t>4l t (HEA0N6I1* II J»**E.0NGI2»I t 

1»1 t NVAP) 

WRITE (6,118) 

N=N*l 

IMM 

IF ( .NOT. 1 $00) GO TO 93 ._. Tlnfcl « nM , v 
uptTF OUTPUT FOR INPUT STATIONS ONLY 
J F ( AB S ( STN( NS ) — X ( 1 ) ) • LE • • 0001 ) GO TO 93 

go to n 

NS«N$*1 

IF fN-NUW(HI) 89 f 96f96 
00 94 IT*ltNVAR 
Lt*LVU 1 1+2*11-1 > 


B 429 
B 430 
B 431 
B 432 
B 433 
B 434 
B 435 
B 436 
B 437 
B 436 
B 439 
B 440 
B 441 
e 442 
B 443 
B 444 
B 445 
B 446 
B 447 
B 448 
B 449 
B 450 
B 451 
B 452 
ft 453 
B 454 
B 455 
B *56 
ft 457 
B 458 
B 459 
B 460 
ft 461 
B 462 
9 463 
B 464 
B 465 
B 466 
B 467 
6 468 
B 469 
B 470 
B 471 



001701 

001703 

001707 

001711 

001732 

001734 

001737 

00X741 

001742 

00174? 

001751 

0017*3 

001755 

0017*0 

001763 

001766 

001775 

001 776 
001776 
001776 
001776 
001776 
001776 
001776 


001776. 

001776 


001776 

001776 

001776 

001776 

001776 

001776 


94 


95 

96 

97 


98 


99 


C 

100 

101 

102 

103 

104 

105 

106 


107 

tea 

109 

110 

111 

112 

113 

114 


WRITE <6 f F0PMI H*N»XU 1 1 CSANUI I f I t»l«NVAR I 
IF mOOl GO TO 92 
IF <N-N$T MMJ+NNI 89f95t95 
NN=NST MM) 

N=»0 

CONTINUE 

IF i I FP 0* E0*0) OHEGA-OHEGA*DELOMG*OMR 

IF {PLOT) 98*99 

I C0UNT=1 COUNT+l 

IF <1C0UNT*GT.31 GO TO 99 

CUL STORPLT i NSUM, NUM f ! SOO,TORVB* IXPU 

CONTINUE 

IF (PLOT*ANO*!COUNT*GE*3) RETURN 
GO TO X 

FOPMAT f A2* 1 3A6 ) 

FORMAT 11HI9X, A2 f 13*6) 

SKK SKSSlSSU-tHis c S o is 

FOnMST <5X»*2«MOPe than 600 stations# run terminated. I 

FORMAT t 1H1SX»20HPAR A.NETER CONTPOt S ouNnPMBR 

FORMAT (19X» A6»0P£13.5f 12X»8HNCM0DE «I*m7.X» A8»El?.5*12Xt8HN0PMBR 
1 « i A//20X t SHRFX ■E1'*#R*1A X»6HN0PN -T 4//13X f 12HCME6A SUBR *EI3.5»12 
IxTw^SSrS - !vni^*H6FLX .E13.5,12X f A9 f A3/m3X,7HCME0A -I1S.W 
3/1 7Xf A8fE13.5 f 12X,8H0EL0MG *E13* 5//1 8X » AT t F13* 5 »12X f 8H0MGT0L »E13* 

MH09X»19HBOUNDAPY C0NDITI0NS//6X»5H JOtNT4X»53HMBRI N0RJ 
unpi JOJTPN IJTRN IKTPN ILTRN// (6X» I 3t 2X* 817/ It 
UH15X»32MSPPTNG AND FLEXIBILITY C0NSTANTS//6X f 5H J0INT4X»63 
t< * Jsqe j . VBRK MBPL TRNS TPNFIJ TRNFIK TRNF1L// 

^FORMAT* C?H 4 R0X»THTABLE I//43X» 24HPHYSICAL CHAR ACTERISTICS/43X* 3A10 
1 ,// 36 X» A?tI3A6//TX»7HSTATT0N7X»lHX12Xt AA#13X»A2//I .. .. 

FORMAT IIHA0X,19HTABLE t ( CONTI NUE0>//7X,7HSTATI0NTX,IHX12X,A4, 14 
1 X» *?// ) 

FORMAT H8»lM-I3tOPFT.2.3»OP2E16.5) 

”;/)2o”«ScE5Tli°SF 2 "S;J!TV X - F10#5//20X»22HT0TAL NASS 
| - F10.5//20X,22HS - 0PE1A.3I 

FORMAT I1H1I 


FORMAT 
1 MBRK 
FORMAT 
1 HMBRt 


8 472 
8 473 
8 474 
8 47*5 
8 476 
8 477 
8 478 
8 474 
B 480 
8 491 
8 462 
B 483 
B 484 
8 485 
8 486 
8 *87 
B 488 
8 489 
8 490 
B 491 
B 492 
B 493 
8 494 
8 495 
8 496 
B 497 
B 498 
8 499 
8 500 
B 501 
B 502 
B 503 
8 504 
B 505 
B 506 
8 507 
8 508 
8 509 
N 510 
B 511 
8 512 
8 513 
• 514 



oom* 

001776 

001776 

001776 

001776 

001776 

001776 


115 FORMAT f 5X»16HN0N-DIM. FREQ « IPE16.7, 5 X t BH0ETERM •E16.7I 

116 FORMAT HX»17M GENERALIZED MAS$»E16.7) 

117 FORMAT (/•5Xt?HSTATION6X*lHX,2X.4C2X*2A6>l 

118 FORMAT (//) 

119 FORMAT • 

120 FORMAT C1H 42X»IAHTA8LC 11» H0DEt3«//36X.A2tlSM//5X*7H$TATt0N6X,l 

lHX»2X»4(2Xt2A6M 

END 


6 313 
8 516 
8 517 
8 318 
8 519 
8 520 
8 521 
8 522 - 


N> 



OOOOIO 

OOOOIO 

000010 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

oooon 
000012 
00001* 
000016 1 
000023 
00002 * 
000032 
0000*1 2 
0000 ** 
000053 
000057 
0000*3 

5® 000132 3 

W 00013T 

000152 4 

000160 

C 

000161 5 

000162 
0001*3 6 

000167 
00017* 
000203 7 

000204 
000207 
000221 
000230 
000277 8 

000300 
000301 
000306 
000310 


1J, HI (600 I 
LOGICAL TOPVBtlSOD 

?oI«ON A /BU2/ XI600I,HH<609>,HAS<600>,NSTA<30) 

JSmmON >BLK3/ U1 100.60 1 , fit 2* 2*301 *WE6fc»M0HBR» TIMM 2-f30 I *GM4SS 
EflUIV»lENC£ IU.Y). IUIl.13l.0Yl* IUI 1*251 »SYNI . IUtl.311.5 ♦ 

ttl»37),Hl» 

IF < TSOOI GO TO 5 
NSU) = N$TM1I 
N!*N0M9»-1 
00 1 IM.N! 

NSU+l>=NSTMtM)-N$TAm 

NSUMNST.MNOFBRl 

WP1TF I6.U1 NSUN 

IF UXPL.FQ.OI 2*3 

CALL PFCOUT C3«l,0»TPBVB f NnMBR* 

CALL PECOUT 13*2»0»NS»1» NONBR.ll 
IXPLM 

[5ll rfCOUT 13.1.0, YI2.KI.DY12.KI.Vtl.KH 

CONTINUE 

RFTIIPN 

PLOT DATA FOR INPUT STATIONS ONLY 
NSUN=0 

00 * W.tNOMBR 
NSUM=NSUM.NUHI I ) 

WPtTF 16,111 NSUN 
IF (IXPL.EQ.OJ 7,8 
I XPL=1 

CALL RECOUT 13, 1,0, TOP VB, NONBP I 
CALL PECOUT ( 3,2, 0* NU*» 1 .NOHBP.l 1 

i;u/;*? U !s«;n?i““5w«i.iss* 

NS*0 

I*! 

00 10 JM » NOHBK 
NU-NUHt J> 

DO 10 11-l.NU 


e i 
c 2 

C 3 
C 4 
e 9 
C 6 
C 7 

c a 

C 9 
C 10 
C 11 
C 12 
C 13 
C 14 
C 15 
C 16 

e 17 

C 1« 

C 19 
C 20 
C 21. 
C 22 
C 23 
C 24 
C 23 
C 26 
C 27 
C 20 
C 29 
C 30 
C 31 
C '32 
C 33 
C 34 
C 35 
C 36 
C 37 
C 38 
C 39 
C 40 
C 41 
C 42 



000311 


NS*N$*t 

000313 

9 

IF t AOS(STN(NS|-xm)*lE..0001» GO TO 10 

00032! 


1*1+1 

000322 


GO TO 9 

000322 

10 

CALL RECOUT (3*1.0tYt2, I), DY( 2* 11 »Y<1«! I) 

000343 


RETURN 

000346 

c 

11 

FORMAT C/21M TOTAL NO. STATIONS **131 

000346 


ENO 


C *3 
C *4 
C 45 
C 46 
C 47 
C 40 
C 49 
C 50 
C 51- 


\0 





SUBROUTINE STORE lA»N»N t ll 

D 

0 

i 

z 

ooocot 

000007 


COMMON^ /BtK3/*U< 100*601*61 2» 2*30lt0MEGA|W)HBR»TfHM^»30>fGNASS 

0 

0 

3 

4 

000007 


J J=M 

0 

5 

000010 


on *■ J*l»2 

D 

6 

000011 


IF m It 2*2 

0 

7 

000012 

1 

UIN, 1 J»«-A*lt JJ 

0 

8 

000017 


GO TO 3 

0 

4 

000020 

2 

U(N f J JI«A(1»J) 

0 

10 

000025 

3' 

JJ-JJ+1 

0 

11 

000027 

* 

CONTINUE 

D 

12 

000031 


RETURN 

0 

13- 

000032 


ENO 







000007 

000007 

000007 

OOOOOT 

000010 

OOOOtl 

000013 

000013 

000017 

C00"26 

000036 1 

000040 

000042 

000044 2 

000044 

000047 

000050 

000051 

000052 


SUBROUTINE CGPAV (NONBRfTOTH,S»CGI 

COMMON /9LK2/ X!6001»HH<600>tNASC60ei»N$TA130l 


RFAL MAS 

SUM1=0. 

SUM2=0. 

U«? 

L2 a NSTA(l) 

00 2 M»!,N0M8R 
DO 1 1=L1«12 

SUI'i*SU«l+.5*IMSI 1 XU HU-1 J J 

$UM->=SUM2«-.'25*|MAStm«A$n-in*IXIll.**2-Xlt7ll**2l 


CONTTNUF 

tl =NSTA < MJ 4-2 

L2*NSTAIM+1» 

CONTTNUF 

T0TK»SUM1 

S»SUM2 

CG-S/TOTN 

RETURN 

END 


f 1 
E 2 
E 3 
« 4 

E 5 
E 6 
E 7 
E « 

E 9 

e 10 

E 11 
E 12 
E 13 
E 14 
E 15 
E 16 
E 17 
E 18 
E 19 
€ 20 - 


e 8 



000006 
000006 
000007 
000010 
000021 1 
000022 2 . 
000024 
000025 


SUBROUTINE MOVE <A t C*N» 
DIMENSION CtN*2)» A(N»2I 
00 2 T=1.,N 
00 1 J“l»2 
CUt J)«AUtJ) 

CONTINUE 

CONTINUE 

RETUPN 

END 



000010 

c 

c 

000010 
00001 1 
000012 
000043 1 

000044 2 

000050 
000051 


SUBROUTINE MATHPY (A f 8 f C,N»H) 
DIMENSION A( Ni 2 ) t B( 2i M) t CIN,N) 
.... N » NO. CF BOMS IN A ANO C 
.... » «* NO. OF COLUMNS IN B AND C 
00 2 I°1 |>N 
00 l Jil,M 

C<t, J!'-A(I,l>*B<l»Jl+Aft,2>*B12 f j> 

CONTINUE 

CONTINUE 

RETURN 

6N0 


6 1 
G 2 
G 3 
G 4 
G 3 
6 4 

G 7 
G S 
G 9 
G 10 
6 li- 


ve 

OD 





SUBROUTINE TNTEAP (XX,YY,I) 

H 

1 

000006 


DIMENSION X<4> f YC 4 ) t XX 1 20 1 » YYI20I 

M 

2 

000006 


TF ( T .LT •? ) GO TO 6 

H 

? 

000010 


xm=xxn- 2 ) 

H 

4 

000011 


x(?i=xxn-n 

H 

5 

000013 


xm*xxm 

M 

6 

000014 


YUI-YYIt-21 


7 

000014 


Y<2>*YY(I-'1I 

H 

B 

0000 IT 


Y ( * ) *YY ( l ) 

H 

9 

0C0021 


$i*<xm-xm )/mn-Yi2n 

H 

10 

000024 


S2«(X{?HXm)nY(2)-Y(?ll 

H 

11 

000030 


IF ( *BS<Sl/S2-t.).lE.l.e-6> GO TO 5 

H 

12 

000035 


XH»X*«M4XUxm 9 XI2)9X(3im«E*7 

H 

13 

“ 0000*4 


XMTN*AMm<xmiX<2)»xmi-l.E-7 

H 

14 

00004? 


OFNn»«(xm**2-xm«*2)Mxm-Xt3n-lX(2)**2-X<3)**2)MXUWX<3n 

H 

15 

000064 


A-(<Y<l>-Y<3>l*tX< 2}-XO))-<Y(2>-Y<3))^<Xm-X<3))l/OENOM 

H 

16 

000077 


9-1 ( X< 1 )**?-X(3) **2)*< Y( 2)— Y(3 ) )-( X(2I*62~X(3)*42)*1Y( 1J-Y1 31 1 ) /OE 

H 

17 



1N0M 

H 

18 

000112 


OY(3)-**xm«2-B*XOI 

H 

19 

000120 


TF (A.lT*l,E18,AND.B.LT.l.E18.ANO.C,LT.l.E18l GO TO 1 

H 

20 

£ 000133 


A*A/l *F!8 

H 

21 

000134 


8*B/l ♦ F T 8 

H 

22 

000135 


C^r/l#F18 

H 

23 

000134 

l 

SQP*R**2-4.*A*C 

M 

24 

000142 


IF ($0*1 7*3*2 

H 

25 

00014* 

2 

SG^SQ^TISOO) 

H 

26 

000147 

0 

P1»C-B*$0*UI2.*A> 

H 

27 

0001F? 


P7M-B-SQR J/(2,*AI 

H 

28 

000157 


xxn*i>*o# 

H 

29 

000162 


IF (Pi ♦ OT * XMIN^ANO #P1 # LT # XMAX) XX(I + ll»n 

H 

30 

000176 


IF (P2«GT*XMlN*AND*P2#tT*XMAX) XX(T+1I«*2 

H 

31 

C00206 


if f xxum.EQ.o, > go to ? 

H 

32 

on<>2i 0 

4 

CONTINUE 

H 

33 

000210 


RETURN 

H 

34 

00021 1 

5 

XX(!+!l*X(2)-Yt2l*S2 

H 

35 

000215 


GO TO 4 

H 

36 

000216 

6 

XX(3)«XX(ll-YYIl>*(XX(n-XX(2n/(VYUI-YY(2n 

H 

37 

000225 


GO TO 4 

H 

38 

000225 

7 

JM 

H 

39 

000226 

e 

J*J-1 

H 

40 

000230 


IF (YYW)*YY<IM 9*9*G 

H 

41 

000233 

0 

xx<un=xx( j j-yy( j)*(xxt j)-xx(in/(vY(j)-YYmi 

« 

42 



100 


000244 

000245 


GO TO 4 
END 


H 43 
H 44- 



SUBP OUT TNE ITERAT UEPR.1 

000003 DIMENSION CM 1 201 

00906’ COMMON /BLK3/ UI100»60)*BI2»2|301 »0MEGA»NQM8R»TENP(2»301 »GNASS 

COO 003 COMMON UOETI201tNU,OELOH6»OHGTOUTT t ITER»NUCT 

000003 IERR-0 

000004 GO TO Uif). ITER 

OOOOU 1 IF < NU.Nf « 1) GO TO 2 

000013 OMIU=OMFGA 

000015 GO TO 3 

C .... TEST FOP SIGN CHANGE 

000015 2 IF (UOET(NU-l)TUDETINUH 4»9»3 

C .... INCREMENT FREQUENCY ANO TRY AGAIN 

000020 3 NU-NUM 

000022 TF I NU.GT »20 1 GO TO 14 

000025 0M(NU)*0HINU-1 J+DELOMG 

000027 GO TO y 

__ C .... SIGN HAS CHANGEO. BEGIN ITERATION. 

’ 000030 4 I TFP =2 

000031 IF I NU.tF.? 1 GO TO 6 

000034 U0ETIl)=U0ET(NU-2) 

000025 UDETt 2 1 -UOET C NU-1 1 

O 000037 UOET (3 ) *UDET (NUl 

H* 000040 OM ( 1 1 -PMI NU-21 

000042 OM(?)=nM(NU-lI 

000043 OM<?1=0M(NU» 

000045 NU“? 

000045 ‘ GO TO A 

C .... TEST F0«* CCNVF°GFNCE 

C .... IS OETEPMTNANT NEARLY ZERO 

000046 5 IF I ABS(UDETINU) I.LF.l.E-6) GO TO 9 

C .... IS CHANGE IN DETERMINANT NEARLY ZERO 

0000*52 IF <AfiS<U0FTINUl/UDFTINU-11-1.1.lE.l.E-61 GO TO 9 

C .... IS CHANGE IN FREQUENCY LESS THAN TOLERANCE 

000057 IF IABS«CIMINU)Z0M(NU-1 1-1. l.LE.OMGTOtl GO TO 9 

000065 IF INU.F0.201 GO TO 10 

000067 6 CALL INTERP <0M,U0ET,NU1 

000072 NU-NU41 

000074 IT-1 

000075 7 CMFGA-OMINU) 

000077 8 RETUPN 

C .... GOOD FRECUENCV. RETURN TO CALCULATE MODAL OATA. 

000100 9 IT-2 


1 1 
T 2 
I 3 
T 4 
T 5 
T 6 
I T 
I 8 
I 9 
T 10 
I 11 
1 12 
I 13 
I 14 
t 19 
I 16 
I 17 
I 18 
I 19 
I 20 
t 21 
I 22 
I 23 
1 24 

I 25 
I 26 
I 27 
I 28 
I 29 
I 30 
I 31 
1 32 

1 33 

1 34 

I 35 
1 36 

I 37 
I 38 
I 39 
I 40 
t 41 
! 42 



00000 ? 

000003 

000003 

000003 
000003 
000003 
000003 
000003 
000004 
000005 
000006 
000007 
000013 1 

00001? 2 
000017 
000020 
000021 

c 

M 0*0023 
o 0C0024 

000025 3 

000030 
000033 
00003? 
000040 ' 4 

000041 
000043 
0000*4 
000044 5 

000**6 6 
000050 
000055 , 

c 

000 060 
000063 7 

000066 
000071 
000074 
000103 8 


SUBROUTINE UW4T«X UFRP) J 1 

DIMENSION C( If 2) f D(l,2), FU,?), Ftl,?*, GU,2), HU, 2), Pll,2), J 2 

10( It 2 ) 9 SI 1 9 2) » 8ASEl(l t 2), 8AS52(l f 2), ERASEC100) J 3 

DIMENSION COL 11201 J 4 

COMMON /PLK1 / JC( 30,8) ,TRN$C 30) ,TPNFI J I 30) tTPNFIK ( 301 ,TRNF1L ( 30 ) , J J 5 

INT J 6 

COMMON /BIK?/ U(lOO,6O),8(2,2f30) , OMEGA, N0M8R> TEMP ( 2,30) ,GMA$$ J 7 

COMMON /6LK4/ UOET( 20) , NU, OELOMG,OMGTOL, IT, I TER, NUCT J B 

£0U T VALENCE <C f D,E,F| f IG,P,R1, (H,Q,S), CCCL,T€MPI J 9 

DATA B ASE1 /I « ,0« /, 8ASE2/0* , 1 •/ 4 10 

I£RP~0 J 11 

1IM*2*N0MSR j 12 

00 2 J* 1 , LIM j 13 

00 1 I®!, LIM j 14 

U<l9J>*0. J 15 

CONTINUE J 16 

CONTINUE J 17 

J*l-i J 18 

JR 2*2 j 1 q 

DO 32 M*1,JNT j 20 

*.*. *s THEPF AN -I- BEAM J 22 

ITPIG*! j 21 

IF 3,27,3 j 23 

C AH MOVE ( BASE1 , C ,1 1 J 24 

KK*2*( JCIM f I)-im j 25 

1L* JP1 j 26 

IF <JCIM t 5|-2) 4,5,6 j 27 

CIMI-O. j 28 

Cn,?J«!t j 29 

ITPIG*7 j 30 

GO TO 6 J 31 

CU,?)*TPNS|M) I 32 

JT(M* 1 > j 33 

CALL MATMPY )C»BM»l»N)»TEMP»lt2l J 34 

CALL STORE <TFMP,Ll«KK t l| J 35 

THEPE A - J- BEAM J 36 

IE ( JC< M» 2 ) I ?il3,7 J 37 

CALL MOVE (BASEltOfl) J 38 

CALL MOVE <BASE2,G,!> j 39 

CALL MOVE (BASEZtHtll J 40 

GO TO (9,61, ITRIG J 41 

D(l,t>«0. i 42 



103 


000 2M 


CALL MOVE (BASF2»S,1) 

00026$ 


GO Tt) ( 2? ,22) , 1TR1G 

00027? 

22 

F(',1I*0. 

00027$ 

23 

kkk = 2 * ( jr (w,$)-i>*i 

000277 


CALL STORE < F,LL,KKK,-1> 

000302 


IF <JC<m,8I«2) 26,24*25 

C00307 

26 

S(l,t>*-TRNFlLm 

000311 


GO TO 26 

000312 

25 

R ( 1 * 2 ) =»0« 

000313 


S( 1, 2 )»0. 

00031$ 


SCI, 11-1. 

000315 

26 

LLL* JR? 

000317 


JR ?** JR 2*1 

000320 


I 

000322 


C»LL M4TMPY CP,BC!,t»N>,TENP»l»2l 

000327 


CALL STORE (TFMP»LLL*KK»1I 

000332 


CALL STORE ( S ,LLL,KKK,-1 1 

000335 


GO TO ?! 

000337 

27 

CALL WOVE (BA$E1,D»1) 

0903$2 


KK=2*( JC(M,2)-1)*1 

000345 


LL«J<>1 

0003*7 


T F < JCC M»5l-2) 28,29,30 

000352 

28 

0(1,1 1=0. 

000353 


0(1,2) =—J • 

000355 


GO TO 30 

000355 

29 

0(1,2) =-TRNSIM) 

000357 

30 

CALL STORE (0»LL»KK,-1) 

000362 

31 

J<M* J°2 

00036$ 


J$2* JP2*1 

000365 

32 

CONTINUE 

000371 


TF CIT.E0.2) GO TO 37 

000373 


1 $CALE a 9 

00037$ 


CALL StWFO IU*LTM,0*0,UDETf NUI , TEMP, 100, 1 SCALE 1 

000*0$ 


IF ( ISCAL c .E0.0» GO T(J 35 

000*06 


CALL OVFRFL (J) 

000$! 0 


OFT* UOE T ( NU 1 *1 • El 8** I SC ALE 

000416 


CALL OVERFL (J) 

000417 


GO TO ( 33,34) » J 

000426 

33 

I SC ALE-1 8* I SC ALE 

000430 


HFTTF (6,50) OMEGA, UOETINU 1,1 SCALE 

000442 


IERR-- >1 

000444 


NU-l 

000445 


LARGE-LARGE*! 


J 86 
4 87 

4 88 
4 89 

$ 90 

4 91 

J 92 
4 93 

J 96 
J 9? 

J 96 
J 97 
i 98 
J 99 

i loo 
J 101 
i 102 
4 103 
J 106 
J 105 
J 106 
J 107 
J 108 
J 109 
4 110 
J 111 
J 112 
J 113 
J 116 
J 115 
J 116 
J 117 
4 116 
J 119 
4 120 
J 121- 
J 122 
J 123 
4 126 
$ 125 
4 126 
4 127 
4 128 



104 


000104 

9 

KKK*2*| JCIM, 2)-l»+l 

000107 


CALL STOPE (0,LL,KKK,-1) 

000U2 


JF < JC(M,6)-2J 12,10,11 

000117 

10 

H(1,1I=-TPWIJ<H» 

000121 


GO TO 12 

000122 

n 

GU,?l*0. 

000123 


Hll,2)*0. 

000124 


Mil, 11*1, 

000125 

12 

LLL- JP2 

000127 


JP2= JP2*1 

000130 


CALL STOPE (H,lLL f KKK,-U 

000133 


) 

000135 


CALL MATMPY 1G , A C 1 , 1 , N 1, TENP, 1, 2 1 

000142 


CALL STOOP (TEMP, LLL, KK,1| 


c 

.... ISTHFPE A -K- BEAN 

000145 

13 

IF { JC IK,? II 14,20,14 

0001*0 

14 

CALL MOVE (BASEl, e *ll 

0001*3 


CALL KOVF CBASE2,P,1» 

000156 


CALL MOVE !BASF2,0,ll 

000161 


GO TO ITRTG 

000170 

15 

fill!, 1-0. 

000171 

16 

KKK=?+| JC(M,3)-1)+1 

000174 


N= JC ( M»? I 

000176 


CALL KATKPY IE, BI1,!,NI, TENP, 1,2» 

000203 


CALL 5T0PE (TEMP,LL,KKK,1I 

000206 


IF ( JC( *,71-2) 19, 17,18 

000213 

17 

0(1,1 )-T«NFTKIN) 

000215 


GO TO 19 

000216 

18 

Pfl,2)*0. 

000217 


011,21*0. 

000220 


0(1,11*1. 

000221 

19 

LLL*JP2 

000223 


JP2* JP2+! 

00"224 


N* JC (M, 1 1 

000726 


CALL MATMPY (P,B(1,1,N|, TENP, 1,2J 

000233 


CALL STORE (TEKP,UL,KK,U 

000236 


N = JC ( N, ■* ) 

non 2*0 


CALL MATMPY t Q, 8 (1 , 1 , N 1 , TEHP,1 ,2 | 

000245 


CALI STORE (TEMP,LLL,KKK,-1I 


C 

.... IS THERE AN -l- BEAM 

000250 

20 

IF (JC(M,4)I 21,31,21 

000253 

21 

CALL MOVE (BASE1,F, 1 )' 

000256 


CAU. MOVE (BASE2,R,1) 


J 43 
J 44 
J 45 
J 46 
J 47 
J 48 
J 49 
J 50 
J 51 
J 5? 
J 53 
J 54 
J 55 
J 56 
J 57 
J 58 
J 59 
J 60 
J 61 
J 62 
J 63 
J 64 
J 65 
J 66 
J 67 
J 68 
J 69 
J 70 
J 71 
J 72 
J 73 
J 74 
J 75 
J 76 
J 77 
J 78 
J 79 
J 80 
J 81 
J 62 
J 83 
J 84 
J 83 




000447 

000451 

000454 

000465 

34 


000457 

35 


000460 

36 


0004*1 

37 


000*61 

0004*3 

000465 

C 

39 


000467 

39 


000472 

40 


000473 

00047* 

41 


000475 

42 

^-^000475 


000477 



000504 

43 


000507 

C 


000511 

000*12 


O 

000513 


Ln 

000*22 

44 


000*24 

45 


000526 



000520 

000532 



000533 

. 


000542 

46 


000544 

000546 

47 


000551 

C 


0005*2 

*00*64 48 

000*70 

000*71 

000573 

000573 49 

000575 


CMFGA=0MEGA*0EL0MG 

TF (LAPGE.GT^IO) 1EPR*1 

GO TO ? 6 

UDFT { NU) “OET 

LAPGF»0 

RETURN 

CONTINUE 

CHECK FOR NON-ZERO ELEMENT IN FIRST BEAM 
DO 38 M=l t JNT 

TF < JC<M,2).E<M) GO TO 39 
CONTINUE ’ 

TF <JC<M f 5J-2) 40f 4l f 41 
!!«J 

GO TO 42 
!T»2 

CONTTNUF 
00 43 J-1 f LI M 
COL( J ) *— Ul J* 1 1 ) 

CONTTNUF 

P F MOVE SELECTED ROW AND COLUMN 
LL TM« I T + l 
00 45 J“LLIM#LTM 
DD 4* T=I t LTM 
UU,J-l)*UUtJ) 

CONTTNUF 

CONTTNUF 

N-UM-1 

DO 47 T »LL T L IM 
00 46 J*l f N 
U(!*1,J»»ua,J) 

CONTTNU* 

COL ( T-I IcCOim 
CONTtNUF 

SOLVE FOR MODAL, MATRIX 

CALL S T MFO t UtLTM-1 fCOL » 1 1 OET f ERASE* 100 » 1 SCALE I 

•••• INSERT i # where row and column remove 0 

I*LIM 

IF U.LE.III GO TO 49 
COLm*COUT-l) 

I-T-! 

GO TO 48 

couu>-i, 

GO TO 34 


4 129 
i 130 
J 131 
4 132 
4 133 
4 134 
J 135 
4 136 
i 137 
i 138 
J 139 
4 140 
J 141 
4 142 
i 143 
J 144 
J 145 
4 146 
J 147 
4 148 
J 149 
J 150 
J 151 
J 152 
4 163 
4 154 
J 155 
i 156 
J 157 
J 158 
4 15* 
J 160 
4 161 
4 162 
4 163 
J 164 
J 165 
J 166 
4 167 
4 168 
4 169 
4 170 
4 171 



106 


000576 

000576 


C 

50 FORMAT {//5X»!6HN0N-Df W. FHEQ 
1 ** 1 ?) 

END 


1PE16.7»5X»8HDETERH «E16.7*7H • 10 


J 172 
i 173 
J 174 
J 175- 


000003 


SUBROUTINE AMATPX (IX) 

DIMENSION A t 2 , 2 ) , H(2,2), Y(2,600)t DV(2 f 600l 

K 

K 

1 

2 

000003 


DIMENSION PA (600 ) 

K 

3 

000003 


COMMON /BLK2/ XI600) f HH(600) f HAS(600l ,NSTA<30) 

R 

4 

000003 


COMMON /BLK3/ U <100,60 1 , Bl 2, 2 , 30) ,OHEGA,NONBft,TENP f 2fc 30) ,GNASS 

R 

3 

000003 


EQUIVALENCE (U,Y), <U< 1, 13 > ,0Y) , (HH,EAl 

R 

6 

00000? 


REAL MAS 

R 

7 

000003 


FRC*OMEGA 

R 

6 

000003 


FP C2 a FP 0**2 

R 

9 

C0C006 


L«-t 

R 

10 

000007 


00 8 M=*1 f NOHBB 

R 

11 

000010 


K*L*2 

R 

12 

000012 


L*NSTA( M)-l 

R 

13 

000014 


00 7 I *K, L 

R 

14 

000010 


DX*X(Itl>~Xf I-) 

K 

15 

000020 


TF \( OX* FO* O* ) CO 70 (7,3), IX 

K 

16 

000027 


OXZ»DX*DX 

K 

17 


C 

• CALCULATE A MATRIX 

R 

16 

000031 


A(1,1)*1.-(FRQ2*MAS( I ♦ X 1 *0X2 1 / 1 2 •♦EAM ) I 

K 

19 

000040 


A( 1 : y 2)«-(MA$(l*l)+M*Sm )*0X*FP02/2* 

K 

20 

000045 


A(2,1)*0X/2«*(1»/EA|T*1 I>1 */EA ( f ) ) 

R 

21 

000052 


A(?,2)*l«-MA5m*FPQ2*OX2/l2.*EAimn 

K 

22 

000061 


GO TO (5,1), IX 

K 

23 


C 

• calculate modal oata for each station 

K 

24 

000066 

1 

IF U.GT.KI GO TO 2 

R 

25 


c 

..*• MOVE temp to y for first station on bean 

K 

26 

000072 


Y< 1 , I )«TEMP( t ,M) 

K 

27 

000075 


Y(2,T)*TFMP(2 t M) 

K 

28 

0001*0 


NUtl)*W(2,?)«0* 

K 

29 

000102 


W<l,2)«-MA$m*FR02 

R 

30 

000104 


W(2,l)-1. •/EA(I) 

R 

31 


c 

MULTIPLY W X Y TO FINO OY FOR FIRST STATION ON BEAN 

K 

32 

000106 


CALL MATMPY ( Vi C l , 1 1 1 VI 1« I ) ,DYU , 1 1 ,2 , 1 1 

K 

33 


c 

.... MULTIPLY A(T) X Y 1 T 1 TO FINO VCIM1 

K 

34 

000114 

2 

CALL MATMPY (4(1,1)? Y<l,tl f Y«lf mi # 2,n 

R 

33 

000123 

, 

WU,1 )«W(2,2)«O v 

K 

36 

000126 


U<lv?l*-HAS<I+U*FRQ2 

R 

37 

000130 


W<2, 11=1./EA(I*|I 

R 

38 


c 

.... MULTIPLY Wtmi X YCUl) TO FINO DYdUl 

R 

39 

000132 


CALL MATMPY I W< 1 , 1 ), Y( 1 , Ul) t 0Y( 1, 1*1 ) f 2,1 ) 

R 

40 

000140 


GMAS$aGMAS$+<l'/6,)*DX*(MASm*<2«*Y(2fT)**2+Y(2,mi**2)+NA$<l+l) 

K 

41 



1*(Y< 2, I>**2*2.*Vt 2,1*1 1**21) 

R 

42 



000101. 


ICK*n 



t 

43 

000102 


GO TO T 



r 

44 

000104 

10 

CONTINUE 



? 

45 

000104 


IF (ICK.EQ.ll GO TO 13 



T 

46 


C 

.... TP Y ANOTHER 20 ITERATIONS AVOIDING 

BAD 

SPOT IF POSSIBLE 

I 

47 

000106 


!CK»1 


l 

T 

48 

000107 


III*? 



T 

49 

000110 

11 

IF (UDET( TII)*U0ET(20I«LT. 0. ) GO TO 12 



T 

30 

000113 


IT T=I ! T-l 



T 

51 

000114 


GO TO U 



T 

52 

000113 

12 

UDET < 2 1=UDET( fill 



1 

53 

000117 


UOET ( 11 =U0ETJ20I 



I 

54 

000121 


0N(2|*0M(tin 



I 

55 

000122 


OM { t 1 *0M( 20! 



I 

56 

000124 


0M( 3 1=-(0M( 1 )-0M( 2)1/2 •+ ON (11 



I 

57 

000127 


NU=3 



T 

*a 

000130 


GO TO T 



I 

59 

000131 

13 

WRITE (6,16) 




60 

000135 


WRITE (6,181 (0M( 1 1 , UDET 111,1*1, NU) 



I 

61 

000152 


IFRE-l 



I 

62 

000154 


GO TO 8 



I 

63 

000155 

14 

NUCT*NUCT%1 



I 

64 

000157 


IF (NUCT.EQ.10I GO TO 15 



1 

65* 

00016 1 


UOFT ( 1 | = UDET (NU-21 



I 

66 

000163 


UDET(?)«U0ET(NU-1I 



I 

67 

000164 


OM ( 1 ) *0M( NU— 2 1 



I 

68 

00r>166 


0M(2>*0H|NU-1I 



I 

69 

000167 


0M(? )*0M( 21 ♦OEtOHG 



I 

70 

O00171 


NU=? 



I 

71 

000172 


GO TO 7 



I 

72 

0001*2 

15 

WRIT? (6,171 



I 

73 

000176 


NU*NU-1 



I 

74 

000200 


WRITE (6,181 ICM(I1,U0ET(I1 # I«1,NUI 



1 

^75 

000214 


TERP*1 



I 

76 

000716 


GO TO 8 



I 

77 


C 




I 

70 

000217 

16 

FORMAT (5X,35HN0 CONVERGENCE AFTER 20 ITERATIONS.! 

I 

79 

000217 

17 

FORMAT (EX,80M200 FREQUENCY CHANGES WITH 

NO 

SIGN CHANGE IN THE U 0 

t 

80 . 



lETERMINANT. RUN TERMINATED. 1 



I 

81 

000217 

id 

FOPMAT (/( 5X,16HN0N~0IM. FREQ ■ 0PE16.7, 

5Xt 8HDETERM -E16.7J) 

I 

82 

000217 


END 



I 

83- 



000162 


C 

000166 3 

000166 
000172 
000176 4 

000177 

C 

000200 5 

C 

000204 

000210 

C 

000212 6 
C 

000220 
000225 7 

000221 8 
000233 
000234 


GO TO 7 

.... REPEAT VALUES FOR DUPLICATE STATIONS 

DO 4 11*1,2 

Yui,m>*vui,n 

DY<U,U1)=0YU!,TJ 

CONTINUE 

GO TO 7 

.... CALCULATE 8 MATRICES 
IF (I.GT.K) GO TO 6 

.... MOVE A TO 8 FOR FIRST STATION ON 8EAN 
CALL MOVE lA«ltl>*BU»l*")»2> 

GO TO 7 

.... MULTIPLY A X B, STORE IN TEMP 

CALL M ATMPY I A <1 ,1 > , B< 1, 1, MJ , TEMPI 1, 1 > , 2, 2 » 

.... MC1VE TEMP TO B 

CALL MOVE I TEMPI 1, 1 >,8(1,1, M), 21 

CONTINUE 

CONTINUE 

RETURN 

END 


«I 43 
R 44 
R 45 
K 46 
R 47 
R 48 
R 49 
R 50 
R 51 
R 52 
R 53 
K 54 
R 55 
R 56 
R 57 
R 58 
K 59 
K 60 
R 61 
R 62- 


o 

\o 



000013 

000013 

000013 


000013 

00001 * 

000015 

000017 

000022 


00002* 

0000?*? 

00002 ? 

OOC037 

00003* 

000037 

000051 

000053 

000054 

0000M 

000064 

000067 

000070 

00007! 

000072 

000073 


000076 

000100 

room 

000103 

000110 

000120 


c 

c 


c 

c 

c 

l 


2 

C 

C 

c 


3 

4 

5 


6 

7 

8 


9 

C 

c 

c 

10 


u 


SUBPOtmNE STPFQ ( A *N* 0t M* DETEQH* 1 PI VOT « NMAX* I SCALE) 
SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS 


DIMENSION IPIVQT € N l 9 ACNMAX*NI * 8iNMAX*H> 
EQUI VALENCE UROW* JROW) » t ICQLUM* JCOLUM 1 * 
DATA UE~16S 


( anax«t«swap I 


INITIALISATION 

ISCALE^O 

# 0 

00 2 J * 1 f N 
I PT VOT t J ) *0 

00 37 T*1,N 

SEARCH FOR PIVOT ELEMENT 

AMAX*O«0 

on 7 j*^*n 

IF (IPIVOTUI*U 3*7*3 
DO 6 K^I * N 

IF i IPTV0?IK)-1) 4*6*38 

IF < AB$(AMAX|-A8SCA< J*X)1) 5*6*6 

IPOW* J 

ICOLUM^K 

MAX* M J,K) 

CONTINUE 

CONTtNUE 

IF < AMAX ) 9*6*9 

OfTEPN^O.O 

1 SC ALE a O 
GO TO ?9 

I P T VOT H COLUH J • I PI VOT ( ICCLUM I *1 

INTERCHANGE ROWS TD PUT PIVOT ELEMENT ON DIAGONAL 


IF ( I ROW— JCOLUM ) 10*14*10 

detepm*-oeterp 

00 U L»!*N 

SW*P*A< IROWfLI 

A<TROW*LI*A( ICOLUMfL) 

A(ICOLUM*L)-SWAP 


t 1 
L 2 
L 3 
t 4 
L 3 
L 6 
L 7 
t 8 
L 9 
L 10 
L 11 
L 12 
L 13 
L 14 
L 15 
L 16 
L IT 
L 18 
L 19 
L ZO 
L 21 
L 22 
L 23 
L 24 
L 25 
- L 26 
L 27 
L 28 
L 29 
L 30 
L 31 
L 32 
l 33 
L 34 
L 35 
L 36 
L 37 
L 38 
L 39 
L 40 
L 41 
L 42 




000124 


IF (M) 14 1 14 tl2 

t 

43 


0C0125 

12 

00 13 1=1 f K 

t 

44 


00C127 


$W*P = 8U*0W f LJ 

L 

45 


000134 


BllPCW, L)»8( fCOLUM'Ll 

i 

46 


000144 

13 

e.(!COLU!MJ=$WAP 

t 

47 


000150 

14 

P!VOT = AUC0lU*tICOlUMl 

L 

48 



C 


L 

49 



c 

SCHF THF DETERMINANT • 

L 

50 



c 


t 

51 


000155 


PIVOT t = P ! VOT 

t 

52 


000156 


IF ( A6S(0FTFRM|-«ll 17 t 15 f 15 

L 

53 


000161 

15 

DETFRM^OFTEPM/PI 

L 

54 


000163 


ISCHEMSCALE*! 

L 

55 


000164 


IF ( ABS(DETERM)-Rl) 20 f 16tl6 

L 

56 


000167 

1* 

DPTF0M=CFTEpM/*1 

L 

57 


000171 


I SCALF*1S r Al.E*l 

L 

58 


000172 


GO TO 20 

L 

49 


0*0173 

17 

IF < flBS<DFTEPMl-R2l 18 r lB # 20 

L 

60 


000176 

18 

DETEPM=0FTEPM*P1 

L 

61 


000200 


ISf AlEaISCM-F-1 

L 

62 


000201 


IF (APS(0FTFPKHR2 j 19,19,20 

L 

63 


00020* 

19 

0ETFPM=0FTFPM*R1 

t 

64 

M 

H* 

000206 


ISC ALF= T SC ALE-*l 

L 

65 

H 4 

.000207 

20 

IF IABS«PlVOTtl-rm 23,21,21 

L 

66 


000213 

21 

PIVrTl=P!VOTt/ftl 

L 

67 


000215 


ISCALF«T$CALE*1 

L 

68 


000217 


IF ( ABSi PT VHTI )-Rl ) 26,22,22 

L 

69 


000221 

22 

PIVOTT^PT V0TI/R1 

L 

70 


0C0223 


I SC < LF- f SC 41 F*1 

L 

71 


000225 


GO TO 26 

L 

72 


000225 

23 

IF l AB5 i P I VOT I l-P 2 ) 24 1 24« 26 

L 

73 


000231 

24 

PI VOTI =P I VGT I*R1 

L 

T4 


000233 


I SC AtF a ISCALF-1 

L 

75 


000235 


IF <A8StPlV0TIHR2) 25,25 f 26 

L 

76 


000240 

25 

P!V0TI*PIVCTI*R1 

L 

77 


000242 


I$CAIE*!$CAIE-1. 

L 

78 


00024* 

26 

DFTFPM=0ETFRM*P1 VOTI 

L 

79 



C 


L 

80 



c 

01VTDE PIVOT ROW BY PIVOT ELEMENT 

L 

01 



c 


L 

92 


000246 


00 28 L*1 t N 

L 

83 


000247 


IF (mvOTIU-l) 27,20,38 

L 

04 


0002*52 

27 

Ail COLUHf L )»AI ICOLOM'U/PtVOT 

L 

95 



000260 28 CONTINUE 

000263 IP IMI 31 *31# 20 

000264 29 00 20 L*1»N 

000266 30 BI ICOLUM,LI«BUC©LUH*lJ/PIVOT 

C 

C REDUCE NON-PI VCI POMS 
C 

000276 31 00 37 ll=l»N 

OOO’OO IF ( Ll-TCOtUM) 32*37,32 

000302 32 T«mi,IOUUM> 

000310 00 34 L=1»N 

000311 IF (IPIV0T(U-1I 33,34,38 

00<V*14 33 MU,L)»All!tU**nC0lllM,ll*T 

000325 34 CONTINUE 

000330 IF (M) 37,37,35 

000331 35 00 36 1*1, « 

000333 36 0ltl»LI"Ml.l»LI-B<ICOLUH,t.l*T 

000351 37 CONTINUE 

000356 38 RETURN 

000??7 END 

£ +FOLLOMING VARIABLES ECU! VALINCEO BUT NOT REFERENCED 
JROW 
JCOLUH 


l 86 
L 87 
L 88 
L 89 
L 90 
L 91 
l 92 
L 93 
L 94 
L 95 
L 96 
L 97 
L 98 
1 99 

L 100 
L 101 
l 102 
l 103 
t 104 
L 105- 



000003 

000003 

000003 

000003 

000003 

C 

000003 

C 

000003 

c 

000003 


c 

000003 
m C00005 
£ 000007 

000013 
000017 
000021 
000023 
000030 
000033 
000036 
000042 
000045 
000051 
000060 
*00063 

ooom 

000113 

c. 

c 

c 

000121 
000122 1 
000126 
000127 2 


OVEPL4Y(L!NK»2,0) 

PROGRAM PLOT » l 

COMMON NPIOT * 2 

INTEGER PLTZ,PLTZPR,PLTT * 3 

INTEGER PITM,PLTZP,PLTAE,PLTJG * * 

LOGICAL TORVB H 5 

REAL M4S»MZRMTN * 4 

M 7 

EQUIVALENCE C ZPMlNCl), ZPMIN! » » 4 ZPMIN4 2 It ZPMIN2I , 4 ZPNIN43), ZPMIN3 M 8 

lit (OZPO. I.DZP1 »♦ 4 D2P (2 ) t DZP2 )» 40ZP4? ),DZP3) M 9 

M 10 

DIMENSION NS412I* XC600), MAS4A00), Y4600), Yl4fOQ,3), 074600,3), M It 

IXP4602 J» YP ( 1802 ) » ZPMIN 43 I » OZPO), HEAOEP48) M 12 

K 13 

NAMELIST /NAM1/ INCHX , DX ,XMIN, PLTZ,PLTZPR, NZAPR , MPLT, PITT, NPLTT,TM M 14 

11N,ZPMIN1 ,DZPl,ZPMIN2,DZP2,ZPMIN3 f DZP3,0TT f PLTN,NMZR,MZRM!N,DHZR,P H 15 

2LTZP,PLTAE,PLTJG,NMAEJG,AJMIN,0AEJG M 16 

M 17. 

REMIND 3 H 18 

REWINO 4 N 19 

PLTZ=PLTZPP*PLTT=MPLT«0 M 20 

PLTM«PLTZR>PLTAE»PLTJG»0 H 21 

NZAPR*NOLTT=l M 22 

NMZ«*NM»EJG»1 M 23 

READ ( K ,2B> HEAOER M 24 

READ 45, NAM1 ) M 25 

WRITE <A,NAM1» H 26 

CALL NOTATE 40. ,0., • 14 , HEAOER, 90. , 801 M 27 

CALL CALPLT 4E.,0.,-3) M 26 

CALL PEC IN 43, 1 ,2, TORVB, NO M9P) M 29 

CALL RECIN 4 3, 2»N0MBR, NS»l,NOMBP ,1) M 30 

CALL RECIN 43,l,t,NSUM) M 31 

READ (4) IX4I),l-l,NSUN) , 4 MAS4 1 > ,I-1,NSUM) , 4 74 1 ) , 1-1 ,N$WM| H 32 

XINCM-INCMX M 33 

IF (PLTM.EO.O.AND.PLTZP.FQ.O) GO TO 6 M 34 

N 35 

PLOT MASS OR ROLL INERTIA M 36 

N 37 

TF 4 TORVB) 1,2 M 38 

CALL. NOTATE 40.,1.3,0.14»17HR0ll INERTIA PLOT, 90., 17) M 39 

GO TO 3 K 40 

CALL NOTATE 40.,1.B,0.14,9HMASS PLOT, 90. ,9) M 41 



000133 3 

000136 

000162 

000153 
000162 4 

000166 
000170 
000172 3 

000205 
000217 
000222 
000224 6 

C 

c 

c 

000232 

000236 

000241 

000245 

C 000260 

4^ 000265 7 

000271 
000273 
000275 8 

000310 
000322 
000325 
000327 9 

C 
C 

c 

000330 
000334 
00 n 32 7 

000352 10 

000354 

000355 11 

000370 

000371 

000375 


cm CAIPLT <5.,0.,-3) 
cm GP!D (0* 1 0« t !•?!• t INCHXf 4 J 

CALL &XES <0*t0*,0* f XINCH, XMfN,0X f 1., 2,,18HSCALE OF X# INCHES, #125 
lt-ie> 

IF I NMZ° ♦ F0« 1 1 4,5 

CAU ASCALE ( MAS ,4* , NSUM, 1 ,20, ) 

MZPMINsMAS<NSUM*1) 

0MZP^MAS«M5UM^2> 

CALL AXES <0;,0*,90*,**,MZPMtN,OMZP,l.*2,tlH f. 125,1) 

CALL LINFX C X, MASfNOMBR, NS, X MIN, DX, MZPMTN, OHZR, XP, YP I 
CALL CALPLT n2,,0,,-3> 

NPLCT-NPLOT^l 

IF <PLTftE*E0.0.AND.PLTJG,EQ#0) GO TO 9 
PLOT STIFFNESS COEFFICIENT 

CALI NOTATE 10* , 1.5*0 *14 ,20H5T IF FNESS COEF* PL0T t 90*tZ0) 

CALL CALPIT <5.,0*,-3) 

CALL G«ID (0*,0,t INCHX,4> 

CALL AXES (0«,0*,0«,XTNCHfXMIN,DXil* ,2», 18HSCALE OF X v tNCHESf.125 
1,-18) 

IF <NMftFJG*FQ.tl 7,8 

CALL ASCALE i Y,4 . , NSU*, 1 t 20* I 

AJPIN«Y(NSUMM1 

0AFJG»Y(N$UM*2J 

CALL AXES < ri *,0*t90*, /L «,AiMIN,OAEiG,l«t2*flH ,,125,11 
CALL IUEX (X, Y,NOMBP,NSfXMlN, OX,AJMIN,OAE JG»XP,YPI 
CALL CALPLT <12.,0*,-3> 

NPLOT-NPLCT+l 
IF (RLTZ.EQ.O) GO TO 10 

ZETA PLOTS 

CALL NOTATE < 0* , l . 5 , . 14, 1 OHZETA PLOTS, 90# , 101 
CALL CAtPLT <5.»0.*-3) 

CALL AXES I0.,0.,0.,XINCH, XMlN,DX,W,Z. f 18HSCAlE OF X, INCHES,. 125 
lt-181 

00 12 IT-1,3 
00 11 J*1 ,NSUM 

CALL PECtN C3,l,3,YIJ),Yli J,I1),0YIJ,IXI) 

IF I PLTZ* EO. 0 ) GO TO 12 

CALL GPIO lO.fO.tl.t .5,lNCHX,2) 

CALL AXES (0*,0*,90* v 1.,— 1« ,2# ?!•♦ 2* , 1H ,*123,11 


M 42 
M 43 
M 44 
M 45 
M 46 
M 4T 
M 48 
M 49 
M 50 
n 51 
H 52 
M 53 
M 54 
M 55 
M 56 
M 37 
M 58 
M 59 
M 60 
M 61 
M 62 
M 63 
M 64 
n 65 

M 66 
M 67 
M 68 
M 69 
H 70 
H 71 
M 72 
M 73 
M 74 
M 75 
n 76 
H 77 
M 78 
M 79 
M 80 
M 81 
M 82 
H S3 
n 84 



000410 

000422 

000425 

000427 

000451 

000435 


000436 

000442 

000445 

CC0460 
000462 
000466 
000473 
000475 
000604 
000510 
000513 
H* i 000415 
£ . 000530 
J 000547 
000552 
000554 
000556 
000560 


000563 

000565 

000471 

000*72 

000576 

000601 

000606 

000607 

000611 

000612 

000614 

000620 


12 


C 

C 

c 


13 

14 


15 


16 

17 

C 

C 

C 

ie 

19 

20 

21 


22 


CALL LTNEX I X» Y, N0MBP»NS»XNTN»0X,-1. * 2.»XP* YP) 

CALL CALPLT (C.,1.5,-3) 

NPLCT=NP1.0T*1 

CONTINUE 

JF ( PLTZ.NE.O) CALL CALPLT (12. ,-4.5, -3) 

!F (PLTZPR.EQ.O) GO TO 17 

ZETA PRIME PLOTS 

CALL NOTATE < 0 . , 1 . , .14. WHZETA PRIME PLOTS, 90. ,16) 

CALI AXFS L (0.,6I,o!,XINCH,XM1N,OX,1.,2.,18HSCALE OF X, INCHES*. 125 
1,-18) 

00 16 TT*1 ,3 

CALL GRID (0.,9.*1.,.5,1NCHX,2) 

IF (NZAPP.EO.l) 13,15 
DO 14 !=1,NSUM 
VP(!)«Y1IT,!I) 

CALL ASCALE C YP, 1 . , NSUM, l, 20. > 

Z°MNU T) =YPU.SUM+t > 

DZPH! >»YP(NSUM*2) . _ , 

CALL AXES (0o0.,90.,l.»ZPHlNm),DZPni),l.»2.,lH ,.125,1) 

CALL LTNEX (X, 71(1,11 ) , NCMBR,NS» XMIN»0X»ZPH1N( II ) »OZP( IT ),XP,YPI 

CALL CALPIT (0.,1.5,-3) 

NPL0T=NPL0T*1 

CONTTNUE 

CALL CALPLT 112. ,-4.5, -3) 

IF (PLT7.F0.0) PETUPN 

TENSION OR TOPOUE PLOT 

IF IT0RV8) 18,19 

CALL NOTATE 1 0 . , 1 . , .14,12HTOROUE PLOTS, 90. ,12) 

GO TO 20 

CALL NOTATE I0.,l.,.14,13HTENStON PL0TS,90.,13) 

CALL CALPLT (5.,0.»-3) 

IF (NPLTT.EQ.l) 21,23 
K=0 

00 22 H-1,3 
00 22 t-l,NSUM 
K»K+1 

YP ( K )*0Y( 1,11 ) 

CONTINUE 


n 

85 

* 

86 

* 

87 

n 

88 

n 

89 

n 

90 

n 

91 

* 

92 

n 

93 

n 

94 

H 

95 

H 

96 

M 

97 

H 

98 

M 

99 

M 

100 

N 

101 

H 

102 

M 

103 

H 

104 

H 

105- 

H 

106 

H 

107 

H 

108 

M 

109 

H 

110 

H 

111 

P 

112 

H 

113 

M 

114 

M 

115 

H 

116 

M 

117 

M 

118 

H 

119 

H 

120 

H 

121 

n 

122 

n 

123 

n 

124 

n 

125 

n 

126 

n 

127 



00*624 


000627 


000631 


000633 

23 

000633 


000643 

24 

000647 


000642 


000674 

24 

000711 


00071 F 

26 

000720 


000722 

27 

000724 


000727 


000732 


000724 



C 

000736 

20 

000736 



CALL ASCALE ( YP,*.,K,1, 20. ) 

TMIN=YP (K*l ) 

DTT=YP(K*2) 

DO 27 T T»l ,3 

IF < II.EO.l.OR.MPlT.NE.Ol 24,23 
CALI GPTD (0.,0.,l.,l.,INCHX,41 

CALL AXES (0.,0. ,9.,XINCH,XMTN,DX,1. ,2.,18HSCALE OF X, INCHES, .125 
1» — t 81 

CALL AXES C9.,0.,90.,4.,TN!N,DTT,1.,2.,IH 125,11 

CALL LINEX ( X.OYU , II 1 ,NOMBR,NS, XHIN, DX,TMIN,OTT,XP,YR» 

IF (MPLT.NE.OI 26,27 
CALL CALPLT (12.,0.,-?> 

nplot=nplot*i 

CONTINUE 

tF (NPLT.NE.OI RETURN 
CALL CALPLT (12. ,0., -3) 

NPLOT®NPLOT*1 

RETURN 

FORMAT (8A10) 

END 


n 129 
n 129 
N 130 
H 131 

n 132 

N 133 
W 134 
n 135 

M 136 
M 137 
H 138 
M 139 
M 140 
M 141 
M 142 
H 143 
H 144 
n 143 
M 146 
N 147. 
* 148- 



000015 


SUBROUTINE LTNEX (X»YfNOMBRtNS*XMtN»OXfYHIN»DY»XP»YP) 
OTMENSION Xtt)« YUlt NSIlIt XPI1I* YPI1I 

000015 


K»1 

000015 


M«0 

000017 


00 2 I*J t NOHBR 

000020 


N-NSI I 1 

000022 


L«0 

000022 


r*p+n 

000024 


00 I J=K t M 

000026 


L”L 

000030 


XP(U«X( J) 

000033 


YPIU*VIJ» 

000036 

i 

CONTINUE 

000040 


XP(N*1»*XMIN 

000042 


XP«N*2)*0X 

0000*4 


YP»N»!1»YN!N 

0000*6 


YPIN*?)*DY 

0000*1 


CAU. LTNPLT IXP,YP»N,lt0,0»0»0l 

000061 



000063 

2 

CONTINUE 

000071 


RETURN 

000072 


END 


N 1 
fi 2 
N 3 
N 4 
H 3 
N 6 
N ? 

N 8 
N 9 
N 10 
N 11 
N 12 
N 13 
N 14 
N 13 
N 16 
N IT 
N 18 
H 19 
N 20 
N 21 
N 22- 



APPENDIX C 

COMPUTER PRINTOUT OF TORSIONAL MODAL DATA 
FOR NUMERICAL EXAMPLE 


1.18 



TORSIONAL MODES OF CYLINDER— SHAFT CONFIGURATION FOR NUMERICAL E RAFFLE 



PARAMETER CONTROLS - TORSIONAL NODES OF CYLINDER- SNA FT CONFIGURATION FOR NUMERICAL EXAMPLE 


RFJG » 
PFIR » 
RFX * 
OMEGA SUSP * 
OELX * 

ONEGA * 

IftttOP * 
JGTOD * 


l*00000E+07 
1 *00000 E— 03 
1.00000E+02 
1.000006*03 
1*000006*00 


5*000006*00 

1*000006*00 
1*O0OOOE*OO 


NOPOOE - 4 

NO RN0R - O 

NORN m 0 

NORDIS - T 


DELONG « 2*5OO0OE*0t 

OHGTOL * 1*000006-07 


BOUNDARY CCNGTT10NS 


JOINT 

XBR1 

NBA J 

PBRK 

MfiftL IOJTPN 

IJTflN 

IXTRN 

ILTRN 

1 

0 

i 

0 

0 

3 

0 

0 

0 

2 

1 

2 

0 

3 

3 

1 

0 

1 

3 

3 

0 

0 

0 

3 

0 

•* 

0 

0 

4 

2 

0 

0 

0 

3 

c 

0 

0 
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SPRING ANO FLEXIBILITY CONSTANTS 

JOINT MBftI MBRJ P8RK MBRL TRNS TRNFIJ 

1 0100 3 . 0006*00 0 . 

2 1203 3 . 0006*00 0 . 

3 30 0 0 3 . 0006*00 0 . 

4 2000 3 . 0006*00 0 . 


TRNFIK 


TRNFIL 




STATION 


1 - 1 
1 - 2 

2- I 
2 - 2 

3- l 
3 - 2 


TABLE 1 

PHYSICAL CHARACTERISTICS 
FOR TORSIONAL VIBRATIONS 

TORSIONAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


X 


ZR JG 


0.000 2.20000E-04 

AO. 000 2.20000E-04 

AO. 000 2.20000E-04 

120.000 2.20000E-04 

AO. 000 4.50000F— 06 

120.000 4.S0000E— 06 


6.20000E+06 

6.200GCE*06 

6.20000E*06 

6.20000E+06 

7.66990E*04 

7.66990E+04 


CENTER OF GRAVITY X - 60.26906 

TOTAL MASS ■ .02676 


S 


1.61260E+00 



123 


TABLE II 


TORSIONAL NODES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
T • 0.00 SEC 

MODE 1 

FREQUENCY CYCLES PER SECOND 409.141 

FREQUENCY RADIANS PEP SECCND 2570.7072 


STATION X 


IETA ■ IETA-PRIHE TORQUE TORQUE-PRIME 


1 - 1 
1- 2 
1 - 3 

1— 4 

i- 5 
i- t> 
1- 7 

1- 8 
1 - 9 

l- 10 
1- 11 
!- 12 
1- 13 
1- 14 
1- 15 
1- 16 
1- 17 
1- 19 
1 - 19 
1 - 20 
1- 21 
1 - 22 
1- 23 
1 - 24 


0.000 -5.58777E-03 0. 0. 

1.000 -5.58712E-03 1.31031F-06 8.12394F+00 

2.000 -■5.«8'l*E-03 2.62032F-06 1.62460F+01 

1.000 -5. B 8ie8F-0? 3.92971E-06 2.436428*01 

A. 000 -5.57729P-03 5.2381 8F-06 3.24762E*01 

15. one -5.571*08-03 6. "45628-06 4.0581*6*01 

6.000 — 5.56420F-03 7.85112F-06 4.867708*01 

7 , 0 (in -5.55570E-03 9.15499E-06 5.67609E*01 

8.000 -5.545898-03 1.04567E-05 6.483168*01 

9.OP0 -5.534788-03 1.17560E-05 7.2887CF*01 

10.000 -5 . 5227 88-03 1. 30*256-05 B.09254F*01 

11.000 -F.50468E-03 1.43459E-CS B.8944eF*0T 

IP. 000 -5.49369E-03 1.563608-05 9.694336*01 

13.000 -5.477*18-03 1.49224E-05 1.0*9198*02 

1A.000 -5.459068-03 1.82049E-05 1.128708*02 

1.5.000 -5.441005-03 1.9AB31F-05 1.2079*F*02 

16.000 -5.42C58F-03 2.07567E-05 1.286918*02 

17.000 -5.39948E-03 2.20254E-05 1.365568*02 

18.000 -5.376836-03 2.32890E-05 l.44392E*02 

19.000 -5.35291F-03 2.45471E-05 1.52192E*02 

20.000 -5.327P3E-03 2.57995E-05 1.59957E*02 

21.000 -5. 30131E-03. 2.70458E-05 1.676846*02 

22.000 -5.27364E-03 2.82857E-05 1.75372E+02 

23.000 -5 .244746-03 2.95191E-05 1.83018E*02 


8.12394E-10 

8.12298E-10 

8.12013E-10 

B.11537E-10 

8. 1087 OF- 10 

8. 10013E-10 

8. 08967E-10 

8.07730E-10 

8.06305E— 10 

8. 0469CE-10 

8.02886F-10 

8. 008958-10 

7.98715F-10 

7.96348^-10 

7.937968-10 

7.91055E-10 

7 . 881 29E-10 

•7.85019E-10 

7.81725E— 10 

7.78247E-10 

7.74587E— 10 

7.70745E-10 

7.66723E-10 

7.625216-10 



TABLE Tlf NCOE 1 

TOPSIONAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

ZETA 

ZETA-PRIMF 

• TORQUE 

TORQUE-PRIME 

2* 

24*000 

- R .21460f-03 

3.07455E-05 

1.906226*02 

7. 581396-10 

1- 26 

25.000 

-5.183256-03 

3.!«F*TF-05 

1.981816*02 

7.^35806-10 

1- 27 

26o000 

-5*150676-03 

3.317Q4E-05 

2.066946*02 

7.488456-10 

1“ 28 

27*000 

-5.116896-03 

3»^3803E“05 

* 2.131586+02 

7.439346- 10 

1“ 29 

28.000 

081916-03 ‘ 

3„SS762i:-05 

2.205726*02 

7.388406-10 

X*» 3 0 

29o000 

-S. 045 746-03 

3o67637E"~05 

2*279356+02 

7.335096-10 

31 

30*000 

-3.000336-03 

3 « 79*246"®* 

2*S?2446+0 2 

7.281536^0 

1" 32 

31 o 000 

*•■4.949966-03 

So^maE-QS 

2*424986+02 

7.22598^10 

1«* 33 

32.000 

"6.930?.66“03 

Oo0g?3ftS”©3 

2.49695E+02 

7.1678SE-10 


33.C00 

■•■*4o3S93a6«03 

4oi $240^*63 

2.“683*E*02 

Yol034&F‘»19 

1“ 39 

3^o 000 

■■4 .8473 1^-03 

*o2 c S&5 : 5E-=a« 

2. 6?9l2i:+02 

7o047aer-10 

!« 36 

35oCOO 

'•'4o8Q413£”03. 

Q«36932S->0S 

2.709 29S+02 

6.904^06-10 

J- 37 

36 oG GG 

■■6o7 : JWie-03 

*o^31?Ae<“63 

2oV?8GlH+02 

0.92O93K-aO 

I- 30 

37.000 

»*4.?!4S4S~03 

^.?92a«e' j 6R 

2.04V69w9O2 

S.83438E”J0 

X- 39 

36*000 

-4.66809E-03 

4 0 7'S?P?E"33 

2.91*9*5*02 

ft.7G*Y8t:'-10 

2- ^0 

39.000 

-4.620486-03 

*, 912986“®* 

2.983435*02 

*.71761G-*10 

1° *t 

*9.000 

-4.971816-03 

A.9i97**~09 

3.0502^6002 

6.646866-10 

2- 2 

*9.O£I0 

*’4.? VI 01?- 03 

®a 0 ©«9JG“Sft 

‘•*S.20S22F*O3 

6.666866-aO 

2- 2 

41 0 000 

«6.74 w 4YB-03 

“i. 932966“ &* 

-1.1984*6*02 

8.929VCF-10 

3 

**.090 

«4. 990416-03 

~i .92i«seF-e4 

-1.191376+03 

7.208926-10 

2- 4 

43*000 

-4.149986-03 

-l.g097J.E-C4 

-1.1 04026+03 

7.497446-10 

2- R 

*4.009 

-5.340356-93 

“1.8974H-04 

-l.m?9F*n3 

7.76421F-10 

2- 6 

45,000 

-5„*?9&6F-03 

“L.SS46frE“04 

-1.168*95+03 

8*039166-10 

2- 7 

46*000 

-5.717286-03 

-1.871 A7E-0* 

-1.I6Q31E+03 

8® 312 226-10 

2- 0 

47*000 

903766-0? 

-1 .3H78^E™04 

-1.151866*03 

8. 58334E<-!0 

2- 9 

48.000 

—f. 09888 E— 03 

"1.34378E-04 

-1.143156+03 

8**852446-10 

2- 10 

49.000 

-6.27251E-Q3 

-1 .02929?— 04 

-1.134166*03 

9.U947F-10 

2— 11 

9Q.9C0 

-6.454716-03 

-1.61437F-04 

-1.124916*03 

9.384356-10 

2- 12 

91*000 

-6*635396-03 

— 1.79902E— 04 

-1.115396*03 

9*64704E™10 

2- 13 

c 2*000 

-6.814516-03 

-1.78329?- 04 

-1.105616*03 

9.907466- 10 

2— 14 

5^*0 00 

-6.992046-03 

-1.76706E-04 

-1 *095586+03 

1.016566-09 

2 - 15 

54.000 

-7.167926-03 

— 1.75046E-04 

-1.085286*03 

1.04213E-09 

2- 16 

55.000 

-7*342136-03 

— 1.73344E-04 

-1.074736*03 

1. 06746E— 09 

2- 17 

56*000 

-7.51461E-03 

-1.71602E-04 

-1.063936*03 

1 .092536-09 



c 


TABLE II » MODE 1 

TORSIONAL MODES OF CYL I NOER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

# ZETA 

ZETA-PRIMF 

2- 18 

57*000 

-7.685335-03 

-1.698306-0* 

2- 19 

58*000 

-7.85*256-03 

-1.6T998E-04 

2- 20 

*9*000 

-B. rt 2l325-03 

-1.6M 366-04 

2- 21 

60.000 

-R-. 186525-03 

-1 .642365-04 

2- 22 

61*000 

-e.3*9B05-03 

-1.622976-04 

2- 23 

62*000 

-».4ill2E-0? 

•-1. 603206-0* 

2- 24 

63*000 

-8.6TCM6-03 

-1.503056-04 

2- 25 

64.000 

-B. 827736-03 

-7 .55253E-04 

2- 26 

65.000 

-8.982556-03 

-1.541656-04 

2- 27 

64.000 

-9.136066-03 

-1. 520416-04 

2- 28 

6 T . 0 0 0 

-9. 287036-03 

-] .496805-0* 

2- 29 

68.000 

-9. *35926-03 

-1 .476856-04 

2r 30 • 

69.000 

-9.582*06-03 

-1.45*556-04 

2- 31 

70.000 

-9.726735-03 

-1.43191E-04 

2- 32 

71.000 

-9.86878E-03 

-1.40893E-04 

2- 33 

72.000 

-1.00069S-02 

-l .385625-04 

2- 34 

73.000 

-1.01459F-02 

-1 .361995-04 

2- 35 

74*000 

—1.030096—02 

-1.3 38 04 p-04 

2- 36 

75.000 

-1 .0AI35E-02 

-1 . 3137BE— 04 

2- 37 

76.000 

-1.054376-02 

— t . 28920E-04 

2-38 

77.000 

-1.067146-02 

-1. 254336-04 

2- 39 

70.000 

-1.079656-02 

—1 • 23915E-04 

2- 40 

79.000 

-1.091926-02 

-1 .213495-04 

2- 41 

80 • °C0 

-1. 103936-02 

—1 » 1 8794E— 04 

2- 42 

81.000 

-1.1 1*686-02 

-1 .161926-04 

2- 43 

82.00^ 

— 1.12717E— 02 

-1.135625-04 

2- 44 

83.000 

-1. 138396-02 

-1.1 09 065-04 

2- ** 

BA.noo 

-1.1*9356-02 

-1.082235-0*' 

2- 46 

8*. 000 

-1.160036—02 

-1.05515E-04 

2- 47 

86.000 

-1.170*5E-02 

— 1.02783E-C4 

2- 48 

87*000 

-1.180596-02 

-1. 00026 E-04 

2- 49 

08*000 

-1.19046E-02 

-9.724*76-05 

2- 50 

09.000 

-1.20004E-02 

-9.44427E— 05 

2- 51 

90.000 

-1.20934E-02 

—9.161766—05 


TOPQUE TORQUE-PRIME 


-1.05288E+C3 
-1.04159E»03 
-1.0*904E*03 
-1.018265*03 
-1.006245*03 
-9.93983E+02 
-9.014925*02 
-9.687715*02 
-9.55823E*02 
-9.42651E*02 
-9 . 292 5 BE* 02 
-9.1564TE*02 
-9«01821E*02 
-6.87783E*02 
-8.735385*02 
-9.59087E*02 
-0.444366*02 
-B.Z9586E+02 

-8.1&8*m02 

-7.993C6E*02 
-7.83883E+C2 
-7.602T6E* 02 
-7.52AB96*02 
-7.365265*02 
-7.203906*02 
-7.eA08 B E+02 
-6.875?.4E*02 
-6.70983E*Q? 
-6.5*1946*02 
-6.372526*02 
-6.201606*02 
-6.02923E*02 
-5.85545E*02 
-5.600296*02 


1.11735E-09 

l. 141916-09 

1 . 18620E-09 

1.19022E-09 

1. HI J98E-09 

1.237415-09 

1.26C58E-09 

1.20344E-O9 

1.3060IE-09 

1. 32827 E-09 

I.35022E— 09 

1.37 l 85 E-09 

1.39316E-09 

1.414156—09 

1.43480E-09 

1.455125-09 

1.47509F-09 

1.494 7? E-09 

1 • 5 1400E-09 

1.532925—09 

1.551485-09 

1 .56968F-09 

1 • 58T K 2E-09 

1.60*985-09 

1. 622066-09 

1.63876E— 09 

1. *655086-09 

1.67101F-09 

1.6e655E-09 

1.70169E-09 

1.71843E-09 

1.73078E-09 

1.74471E-09 

1.75824E-09 
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TABLE Ilf MODE 1 


TORSIONAL NODES OE CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL. EXAMPLE 


STATION 


* Z5TA 

26TA-PRIM6 

. TORQUE . 

T0PQU6-PRIME 

2- 52 

91 *000 

-1.218365-02 

-8.877106-05 

-5.503006*02 

1.771356-09 

2- 5? 

52*000 

-1.22710E-0? 

—8 .590366—05 

-5 .32* 026*02 

1.7840*6-09 

2- 64 

93.000 

-1. *3**46-02 

-8.301606-05 

-5.144996*02 

1 • 796336-09 

2— *5 

9*.0"0 

-1. 243706-02 

-8. 010906-05 

-4.944766*02 

1.804196.— 09 

2- 56 

9**00" 

-1.2*1575-07 

-7.718316-05 

-4.769256+02 

1.819626-09 

2- 57 

96.000 

-1.7*9145-02 

-7 .423 92E-05 

-4.602036*02 

1.830636-09 

2- 58 

97.000 

-1.266415-02 

-7.127796-05 

-4.419236*02 

1.841216-09 

2- 59 

98.000 

"1.273395-02 

-6 . 82998E— 05 

-4.234596*02 

1.851366-09 

2- 60 

99.000 

-1 • 2 80C75-02 

-6.5306*6-05 

-4.048966*02 

1.861076-09 

2- 61 

100.000 

"1.786455-02 

—6.229646—05 

-3.862376*02 

1,870356-09 

7- 62 

let. 000 

-1.292535-02 

-6 *977246—05 

-3.674896*02 

1.879196-09 

2- 63 

102.000 

-1.298315-02 

-5. 673466-05 

—3 .486*46*02 

1.887586-09 

2- 64 

103.000 

-1.303785-02 

-5. 3103*6-05 

-3.297375*02 

1.095*46-09 

2- 65 

104.000 

-1. 308*55-02 

-5.011986-05 

-3.107436*02 

1 » 90305F- 09 

2- 66 

10*. 000 

-1.313805-02 

-4.704456-05 

-2. 9! 6 76 *♦ 02 

1.91011 6-09 

2- 67 

106.000 

—1 .3183*5-02 

-4. 395025-05 

-2.725416+02 

1.916736-09 

2- 68 

107*000 

-1.322405-02 

-4.096156-0* 

-2. ”3*26*02 

1. 922896-09 

2- 69 

108.000 

—1 .326*35—02 

-3.77**36-05 

— 2. 3* 0636+02 

1.928616-09 

2- 70 

109.000 

-1 .3*0156-02 

-?.4*&02*-05 

-2.1*7*96+02 

1 . 973876- 09 

2- 71 

110 . ooo 

-1. 333455-02 

— 3*151 7C 6— 0* 

— 1 * 9*406 6+02 

t • 93 86BF- 09 

2- 72 

111. 000 

-1.3764*5-02 

-2. 838446-06 

-1.7599*6+02 

1.943046-09 

2- 73 

112.000 

-1. 339135-02 

-7. *2*976-05 

-1. **5455*02 

1.946936-09 

2- 74 

117.000 

-1.34150E-0? 

-2.2 10605-05 

-1.37067E+02 

1.950306-09 

7- 75 

114.00" 

-1.343555—02 

-1.89*765-05 

-1 * 175 376+02 

1 . 953366-09 

2- 76 

115.000 

-1.34*296-02 

-1 . * 8048E-05 

-9.7989961-01 

1..95589E-09 

2- 77 

11" . OO" 

-1.346716-02 

-1.264836-05 

-7.841956*01 

1,9*7966-09 

2- 78 

117.000 

-1. *47675-02 

-9. *98836-06 

-5.883076*01 

1.959576-09 

2- 79 

118. ""0 

-1.348616-0? 

-6*327126-"6 

-3.922816*01 

1.96072E-09 

2- 80 

119.000 

-1.349096-02 

-3.163936-06 

-1.961646*01 

1.961416-09 

2- 81 

120.000 

-1.349256-02 

t2. 001186-20 

-1.240736-13 

1.96164E-09 

3- l 

40.000 

-4.571816-03 

1.969066-02 

1.5102*6*03 

l. 359506-11 

3- 2 

41.000 

1.511976-02 

1.968856-02 

1.510096*03 

-4.496356-11 

2- 3 

42.000 

3.480536-02 

1.967896-02 

1.509356*03 

-1.035056-10 

3— 4 

43.000 

5.447746-02 

1. 966166-02 

1.508026*03 

-1.620076-10 
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TABLE 1I # MODE 1 

TORSIONAL MODES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

ZETA 

ZETA-PRIME 

TORQUE 

TORQUE-PRIME 

5 

**. no? 

7.412846-02 

1.963*66-02 

1.5041 IF* 03 

-2.204466-10 

3- 6 

45.000 

9.3750^-02 

1.96041E-02 

1.503615+03 

— 2.78600E— 10 

3- 7 

46.000 

1.13337F-0I 

1. 95639E— 02 

1.500535+03 

-3.370456-10 

3- 8 

4T.OOO 

1.52879E-01 

1 .95162F— 02 

1.496875+03 

— 3.95160E— 10 

3- 9 

48.000 

1.523695-01 

1.946095-02 

1.49263E603 

-4.531215-10 

3- TO 

40.000 

1.718005-01 

1. .939805—02 

1.487815+03 

-5 • 10907E— 10 

3- n 

*0.000 

1.91165E-01 

1.932775-02 

1.482416+03 

-5.684946-10 

3- 12 

51.000 

2.104566—01 

1 .9349PE-02 

1.47644F+03 

-6.250625-10 

3- 13 

52.000 

2.29665E-01 

1.91645F-02 

1 .469905+03 

-6.829865-10 

3- 14 

“2.000 

2 .48785F— 01 

1.907175-02 

1.46378E+C3 

— 7. 39846E-10 

3- 15 

54.000 

2.67808F-0! 

1.897i“E-02 

1.45*105+03 

-7.96419E-10 

3- 16 

55.000 

2.86728“— 01 

1.88649E-02 

1.446055+03 

-8.526825-10 

3- 17 

54.000 

' 3 .05“36.F-0’ 

1.87492F-02 

1.438045+03 

-9.086146-10 

3- IB 

*7.0"" 

3.242269-01 

t. 862715-02 

1.42868E+02 

-9.641975-10 

3- 19 

58.000 

3.42790E-01 

1 . 849785-02 

1.418745+03 

-1. 019405-09 

3- 29 

59. "00 

3.6I722F-01 

1.836135-02 

1.408295+03 

-1.07422F-09 

3- 21 

60. "00 

3 .795136-01 

1 .821775-02 

l.397?e5+03 

-1.128616-09 

3- 22 

41. "0" 

3.976*76-91 

1 . B067CE— 02 

1.385725+03 

-1.102575-09 

3- 23 

62.000 

4.15647F-01 

1.^90936-02 

1.373635+03 

-1 .23607E-09 

3- 24 

62.000 

4.33476E-01 

1.774475-02 

1.36100E+03 

-1.289095-09 

3- 25 

64.000 

4.511 36E-01 

1.757325-02 

1.347845+03 

-1.341415-09 

3- 26 

65.000 

4.68*22E-01 

1.73948F-02 

1.33417E+03 

-1.39361E-09 

3- 27 

66.000 

4. 85926F-01 

1.720985-02 

1.319975+03 

-1 .4450TE— 09 

3- 28 

67.000 

5.03041F-01 

1.701805-02 

1.305275+03 

-1.495976-09 

3- 29 

68.000 

5.19962F— 01 

1.68197F-02 

1.29005F+03 

-1. “46285-09 

3- 30 

69.000 

5.36681E-01 

1.641485-02 

1.274346+03 

-1 .596 9PF-09 

3- 31 

70.000 

5. 5? 192E— 01 

1.440355-02 

1.2“8l?E+03 

-1.64510E— 09 

3- 32 

Ti .000 

“.694886-01 

1.618585-02 

1.241445+03 

-1.69357E-09 

2- 33 

72.000 

5.85“63F— 01 

1.596195-02 

1.224266+03 

-1.741375-09 

3— 34 

73.000 

6.0141 2E-01 

1.573185-02 

1.20661F+03 

-1.788*06-09 

3- 35 

74.000 

6.17027E— 01 

1.849555—02 

1.188496+03 

-1.834945-09 

3- 36 

75.000 

6.324036-01 

1.52*335-02 

1.16991E+03 

-1.880676-09 

3- 37 

76.000 

6.47*33F— 01 

1.500515-02 

1.15088E+03 

-1.92566E-09 

3- 38 

77.000 

6.62413E-01 

1.475116-02 

1.131406+03 

-1.96991E-09 



TABLE Ilf 
TORSIONAL MODES 



STATION 

X 

ZFTA 

ZET6-PR1ME 


3- 39 

70.n*o 

6,77036^-01 

1.44914F-02 


3- AO 

79.000 

6.91396E-01 

1 .*-2261 E-02 . 


3- 41 

8%OQ0 

7.06488E— 01 

1.39F53F-C2 


?- 4* 

euoro 

7.19307F-01 

1.36T91F-02 


3- 43 

82*000 

7.32846E-01 

1.33975E-02 


3- 44 

03.000 

7.461 02E-01 

1*311 08E-02 


3- 45 

8*. non 

7.6<?C6flE-01 

1. 281. 89E-02 


3- 46 

85.000 

7.71740E-01 

1.26Z21E-02 

H 1 

3- 47 

06.000 

7.8M17E-01 

1.2220FF-02 

N> 

3- 40 

87*000 

7.9f 101E— 01 

l.l 9141E— 02 

CO 

3- 49 

88.000 

8.07940E-01 

1.1 6031F-02 


3- 50 

89.000 

8.19387F-01 

1.12876E-02 


3- *1 

90.000 

SoSO'l^F-Ol 

1.09677E-02 


3- 52 

91.000 

8.41322E-01 

1.0643FE-02 


3- *3 

92.^09 

8.018Q3F-OI 

1 .03! c 3F-02 


3- 54 

93.000 

8.619'-1E-01 

9.99301F— 03 


?- 55 

94.000 

8.71769E-01 

9.64687E-03 


3- 56 

05.000 

8.81246E-01 

9.306«>9E-03 


3" 57 

96.000 

8.90383E— 01 

8.96360E-03 


3- 50 

97 o 000 

8.99174E-01 

8.616 e *E-03 


3- 59 

98 cOOO 

9.07f 16E-01 

8.24623E-03 


3- 60 

99.000 

9.18705P-01 

7.91272E-03 


3- 61 

100.000 

9.23441F-01 

7.55614E-03 


3— 62 

101.000 

9.30818E-01 

7.19663E-03 


3- 63 

102.000 

9.37834E-01 

6.83433E-03 


3— 64 

103.000 

9.44487E-01 

6.46938E-03 


?- 65 

1C4.090 

9.90773F-01 

6 .10192F-03 


3- 66 

105. ono 

9.56691F-01 

6.73209E-03 


3- 67 

106.000 

9.62238E-01 

5.3600* : E-03 


3- 68 

107.000 

9. 6 74 11E— 01 

4.98F92E-03 


2- 69 

108.000 

9.72209E-01 

4.60986E-03 


3- 70 

1C9.000 

9.76631E-01 

4.23201E-03 


3— 71 

110.000 

9.80673E-01 

3 • 85253E-03 


3- 72 

111.000 

9.84336E-01 

3.471 54 E-03 


MODE I 

OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
TORQUE TORQUE-PRIME 


1.1U48E*03 -2.01340E-09 
1.09113E»03 -2.0S610E-09 
1.07036E+03 -Z. 09801E-09 
1.04917E+03 -2.I3910E-09 
1.02756E+03 -2.17937E-09 
U0055BE+03 -2.21879E-09 
9.832P0E+02 -2.26T35E-09 
9.60436E*-02 -2.29503E-09 
9.37299E+02 -2.33182E-09 
9. 13799E*02 -2.36T71E-09 
8. 89945E+-02 -2.40269E-09 
8.65746E»02 -2.43673E-09 
e.4>2HF*02 -2.46982E-09 
8.16349E+0? -2.50196E-09 
7.91171E+02 -2.53313E--09 
7 . 6*6 B7E + 02 — 2.‘56331E— 09 
7.3990 C E*02 -2.692E0E-09 
7.L3837F+02 -2.62069F-09 
6.87492F»02 —2 . 64786E-09 
6.6O08OE+O2 -2.674C0E-09 
6.? A 012E*-02 -2*6991 OE-09 
6.C^898E*02 -2.72316E-09 
?.795*8E*02 -2.746I7E-09 
5.51974E+02 -2.76811E-09 
F.24186^02 -2*788978-09 
4.9619 K E*02 -2. 80875 E- 09 
4.68011E«-02 -2.82745E-09 
4.39446E*02 -2.84505F-O9 
4.1U10E+02 -2.861E4E-09 
3.82A15E702 -2.87693E-09 
3.53572F+02 -2.89120E-09 
3.2459IE*02 — 2* 904 34 E— 09 
2.93485E+02 -2.9163TE-09 
2.66264E+02 -2.92726E-09 



TABLE II, MODE 1 


TORSIONAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

ZETA 

ZETA-PRIME 

TORQUE 

TORQOE-PRIME 

3- 73 

112.000 

9. 876 17E-01 

3.08922E-03 

2.36940E+02 

-2.93701E-09 

3- 74 

112.000 

9.905145-01 

2.70569E-03 

2. 079249*02 

— 2.94563E— 09 

3- 75 

114.000 

9*93C28F~01 

2.32111E-03' 

1.78027F*02 

-2.95311E-09 

3- 76 . 

11 p . 000 

9.951 575—01 

1.9T86AP-01 

1.48461E*02 

— ?.9S944E— 09 

3- 77 

116.000 

9*96899F-01 

1.54941E-03 

1.18836E+02 

— 2.96462E-09 

3 - 70 

11T.OOO 

9*99255F— 01 

1.16258E-03 

8.91691E+01 

-2.9686SE-09 

3- 79 

118.000 

9*992255-01 

7.75307E-04 

J.94653E+01 

-2.97153E-09 

3- 80 

119.000 

9.99806E-01 

3.877 29 E— 04 

2.97304E+O1 

— 2.97326E— 09 

H* 3- 81 

ro 

120.000 

1*000005+00 

-1.29413E-17 

-9.925B8E-13 

-2.973B4E-09 

TOTAL NO. STATIONS - 

203 
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TORSIONAL 

. 


FREQUENCY CYCLES PER SECCNO 699.021 
FREQUENCY RADIANS PER SECOND 4397.1067 


STATION 

X 

Z5TA 

ZETA-RRINE 

1- l 

0.00* 

i.ooocoe+oo 

0 « 

I- 2 

1.000 

9.996*76-01 

-6. 860656-04 

1- 3 

2.000 

9.90*286-01 

-1.371*66-03 

I- A 

3.0*0 

9 . 969146—01 

-2.056 316-03 

l- 5 

4.000 

9.94*1*6-01 

-2.739556-03 

l- 6 

«.00" 

9. 91*35 P~01 

-3.4*0926-03 

l- 7 

A .000 

9 *876746—01 

-4. 099936-03 

1- 8 

7. n 00 

9.83235*-P! 

-4.77M36-03 

J- 9 

8.000 

9.781 2 2 P “01 

-5. 449066-03 

1- 10 

9.000 

9.723376-01 

-6.11824^-03 

1- U 

10.000 

9.458856-01 

-6 *783238-03 

l- 12 

11.0*0 

9. *07716-01 

-7*443566-03 

1- 13 

12.000 

9. *99986-01 

-8.098796-0? 

1- 14 

13.000 

9.42*736-01 

-0.748456-03 

1- 19 

14.000 

9. *35016-01 

-9.392126-03 

1- 16 

I'.OP* 

9.237896-01 

002936-02 

1- 17 

16.000 

9.134436-01 

—1 .06*976-02 

18 

17.000 

9.02470E-01 

-1.128276-02 

1- 19 

18.000 

8.90878E-01 

-1.139806-02 

1- 20 

19.000 

8.786746—01 

-1.260516-02 

1- 21 

20.000 

8.658676-01 

-1.310366-02 

1- 22 

21.000 

8.524676-01 

-1.369326-02 

1- 23 

22.000 

8.384816-01 

-1.427336-02 

1- 24 

23.000 

8.239206-01 

-1. 484376-02 
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TABLE Ilf MODE 2* 

TORSIONAL MODES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATON 

X 

Z5TA 

ZETA-PR IM5 

TORQUE 

TORQUE-PRI HE 

1- 25 

24.200 

8.08794^-01 

-1 *540396-02 

-9. *604 C5*04 

-3*440295-07 

1- 26 

25.000 

7.931 13E— 01 

— 1 . 5953 5E-02 

-9*891156*04 

-3.373 5 8E-07 

1- 27 

26,000 

7.76087^01 

-1 .64921 E-02 

-1*02251 6*05 

-3. 30457P-07 

1- 28 

27.0^0 

7.60128F-H1 

-1.70195F-0? 

-1.0*5216*0? 

-3* 23328E-07 

1- 29 

29.000 

7. 428486-PI 

—1 .753516-02 

-1 *007186+0* 

-3.159785-07 

1- SO 

29.000 

7.25058F-01 

-1 .80387 E-02 

-1*118406+05 

-3.084UE-07 

1 - n 

30.000 

7.067715-01 

-l.SS^OOE-O? 

-1.140866+05 

-3.006325-07 

1- 22 

31.000 

6.879985-01 

-1.9008*5-02 

-1 • 178536+05 

— 2* 92647E-07 

1- 33 

32.000 

6 .4 8754E-01 

— 1 .94740 E-02 

-1 *20 7 396+05 

-2 • 844615-07 

1- 24 

33.000 

6 .49050E-01 

-1.99261 E-02 

-1.23*426+05 

—2 • 76080E-07 

1- 35 

34.000 

4.289025-01 

-2 .03646 E-02 

-1.2626U + 05 

-2 • 675 10E-07 

1- 26 

3 C .0^0 

6. 983215-01 

-2.07891 E-02 

-1.288926+05 

-2 • 58756E-07 

1- 37 

36.000 

n * 873245-0 1 

-2.119935-02 

-1.314356+05 

-2 • 498 24E-07 

1- 38 

37.000 

5.659236-01 

-2*1 5950E-02 

-l. 33889E+05 

-2.40721E-07 

1- 29 

38.000 

5 .441345-01 

—2. 1 97*88—02 

- 1 .362505+05 

-2.31453E-07 

1- 40 

39.000 

5.219715-01 

-2*2 34166-02 

-1.38*1 BE* 05 

-2* 22026E-07 

1- 41 

40.000 

4.9945 15-01 

—2 .269305—02 

— 1.406916+05 

—2*124466—07 

2- 1 

40.000 

4.99451E-01 

-2.2 59246-02 

-1.40373E+C5 

-2. 124465-07 

2-' 2 

41.000 

4.7668^-01 

-2 • 2 92 73E-02 

-1.421496+05 

-2. 027648-07 

2- 3 

42.000 

4.53^965-01 

-2*324646-02 

- 1 • 44 1 2 8 E + 0 5 

-1.929425-07 

2* 4 

43 .,000 

4.30194P-0I 

—2.354975—02 

— 1 .46 008E + 05 

-1.029875-07 

2- 5 

44.000 

4.064075-01 

-2.3 0347E-O2 

- 1 .477 086 + 05 

-1.729085-07 

2- 6 

45.000 

3.825215—01 

-2. 410746-02 

— 1.49466E+05 

-1 *677095-07 

2- 7 

46.000 

3.682825-01 

-2.4 3616E-02 

-l. 51O42E+05 

-1. 523995-07 

2- 8 

47.000 

3.337986-01 

— 2 *459905—02 

-l .525146+05 

-1 *419846—07 

2- 9 

48.000 

3.09C846-01 

-2 .481 96E-C2 

-l. *30026+05 

-1*314725-07 

2— 10 

49.000 

2.841586-01 

— 2 .50232 E— 02 

— 1 • 5514* E + 05 

-1 • 200 70E-07 

2- 11 

50.000 

2.59C385-01 

— 2. 5209? E— 02 

— i • 562996+05 

-1.101046-07 

2— 12 

51.000 

2.337396-01 

—2*537865—02 

— 1 . 673476+05 

-9.942345-08 

2- 13 

57.000 

2.08261E-01 

-2.5*3026-02 

-1 . 502876+05 

-8.859426-08 

2- 14 

53.000 

l. 826796-01 

-2.566446-02 

-1 * 591 196+05 

-7. 770435-08 

2- 15 

54.000 

1.569525-01 

— 2 .570O9E-O2 

-1.59842E+05 

-6.676115-08 

2- 16 

55.000 

1.311176-01 

-2.597976—02 

-1.60454E+05 

-5.577205-08 

2- 17 

56.000 

1.051926-01 

-2.5960BE-02 

-1.609576+05 

-4.474466-08 



TABLE 11* MODE 2 


TORSIONAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

Z0TA 

ZETA-PR1M0 

TORQUE 

TORQU0-PP1N6 

2- 18 

57*000 

7.91955F-02 

-2.602410-02 

-1.613A9E+03 

-3.368460-08 

2- 19 

58*000 

5.314430-02 

-2.606950-02 

— 1.A1631E+05 

-2.260040-08 

2- 20 

59*000 

2.70*650-02 

-2.609700-02 

-1.61801E*0? 

-l.l*08eE-08 

2- 21 

60*000 

9. 502630-04 

-2.610660-02 

— l.fclSf 1E*05 

-4.042040-10 

2- 22 

61*000 

-2. 515670-02 

-2.609030-02 

-I.fl810E*0M 

1.070060-08 

2- 23 

62*000 

—5.1246$P—02 

-2.607210-02 

— 1 .M6A7E«-9F 

2. 1 79070-08 

2— 2* 

67.000 

— 7. 7* 1 9090-02 

-2 .402000-02 

-l.*137AF*C? 

3.288070-08 

2- 25 

66.000 

-1.03302F-01 

— 2.5 96 600— 02 

-1.60989E*!)? 

4.394070-08 

2- 26 

65.000 

-1.292338-01 

—2 .5986?*— 02 

-l.f049«E*0S 

5.497000-08 

2- 27 

66*000 

-l.**C750-*l 

-2.570870-02 

-1.S9890E+0B 

6. 596270-08 

2- 28 

67.0*0 

-i*80fp 90-01 

-2.0*77*0-02 

-1.5917EE+-0? 

7*690960-08 

?- 29 

*8.0*0 

-2. *64725-01. 

—2 • *54060-02 

-l.«83*2E*05 

8. 7803 6E-08 

2- 30 

69.00* 

—2.31 89? p -01 

-2.579020-02 

-1.*7A19FA0R 

9.863740-08 

?- 31 
2- 32 

70.0*0 

-2.5729?*-*l 

—2.5 2? ?4F— *2 

-l.f6379E»03 

1.094040-07 

71.000 

-2.923370-01 

— 2 ♦* 9373 0-02 

-l.*59231E^0'5 

1.200950-07 

2- 33 

72.000 

- 7**72778-01 

-2.4835*0-02 

-7.57977E+C5 

1.307030-07 

2- 3* 

73.000 

-3.329G70-O1 

-2.461570-02 

-l.52S’7F*05 

1.412220-07 

2- 35 

74.000 

-3*56*095-01 

-2.4379 e E— 02 

-l.51l”E*05 

1.516440-07 

2- 36 

75.000 

-3*807665-01 

-2.41265 E— 02 

-l.*958fF+05 

1.619630-07 

2- 37 

76.000 

-4.047625-01 

-2*385700-02 

-1.A791AE*0! 

1.721690-07 

2- 30 

7^.000 

— 4. 28480*- 01 

-2*357120-02 

-1.*61A1E*0R 

!. 872*80-07 

2- 39 

78.000 

-4.519040-01 

-2.326910-02 

-UAA2f8E*05 

1.922220-07 

2- 60 

79.000 

— 4*7501 8 0—01 

-2.29*110-02 

-1.A2797F+05 

2.02*540-07 

2- 61 

80. 000 

-4.978060-01 

-2.261730-02 

-1.A0227F+05 

2.117470-07 

2— 42 

81.000 

-5.292530-01 

-2.226800-0? 

-1.38962E+05 

2.^12950-07 

2- 63 

82.000 

-5.423420-01 

-2.1903*0-02 

-1.3SB02FA05 

2.306910-07 

2- 44 

83.000 

-*.64*600-01 

-2.152390-02 

-l.’J^eF+OS 

2* 399280-07 

2— 45 

84.000 

— * .853900—01 

-2.112950-02 

-I.31003E+05 

2.490020-07 

2- 46 

85.000 

-6.063190-01 

-2.072060-02 

-1.28A68E+03 

2.579040-07 

2- 47 

86.000 

-6.268310-01 

-2.029760-02 

-l.258A«E«-05 

2.664290-07 

2- 48 

87.000 

-6.469140-01 

-1.986060-02 

-1.23135E+05 

2.751710-07 

2- 49 

88.000 

-6.665*30-01 

-1.940990-02 

-1.203A1E*0? 

2.835250-07 

2- 50 

89.000 

-6.857340-01 

— 1*894600—02 

-l.mfcRE+OR 

2.916840-07 

2- 51 

90.000 

— 7.04445E— 01 

-1.846900-02 

-1.1AS08EA0? 

2.996430-07 



U1 U» V 


TABLE II* MOOS 2 


TORSIONAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

ZETA 

Z6TA-P8 1 ME 

TORQUE 

TORQUE-PPIME 

2- *2 

91.000 

-7 • 22672E-0I 

-1.797946-02 

-1.11472E*C5 

3.07396E-07 

2- *3 

92.000 

-7.40404E-01 

-1.747746-02 

-1.08360E+05 

3.I4938F-07 

2- 54 

93.000 

-7.576276-01 

-1.696346-02 

-1.05177E+OS 

.3.22264E-07 

2- 55 

94.000 

-7. 743306-01 

—1 .643706—02 

-1.0191 c f*05 

3.293E9F-07 

2- 56 

9*. 000 

-7.90*03E-01 

-1.690106-02 

-9.858*CF«-04 

3.34248F-07 

2- ?T 

96.000 

-8. *61336-*! 

-1 • 5 353 2E-02 

-9.F189TFMJ4 

3.42897E-07 

2- c 8 

97.000 

-*.21?096-01 

-1 .479496-02 

-9.17281.E*04 

3.49370E-07 

2- 69 

90.000 

-8.3 K 727 p -01 

-1.4326*6-02 

-B.820?“E*C4 

3.F5483F-0T 

2- *0 

99.000 

-8.49552F-0! 

-1 .364816-02 

-9.46184E*04 

3.M4I2E-0T 

2- 61 

<09. 9*0 

-9.63C19F-01 

•1.396055- 02 

-B.097S3E+OA 

3.67C94E-07 

2- 62 

101 .000 

-P. 757835-0! 

-1.246406-02 

-7.727A6E+04 

3.72F23E-07 

2- 63 

1C2.OO0 

-0 .879475-01 

-1.10*886-02 

-7.3524BE+04 

3.77697E-07 

2- 64 

103.000 

-0.095015-01 

-1.124566-02 

-6.97226E+04 

3.82M2E-9T 

2- 66 

104.000 

-9.10^385-01 

-1.962466-02 

-4.5872fF*04 

3. 872f4E-07 

2- 66 

1C* .*** 

-9.297505-0! 

— 9*9963*6— *3 

-6. 1977*E*04 

2.9L650F-07 

2- 6? 

1 06.000 

-9.30^315-01 

-9 .361 236-02 

-*.6039fE*04 

3,9F748F-07 

2- 68 

ir?.0*o 

-9. ”*9^7 ’f-0 1 

— 8.7196 86 -*3 

-5.40620E+04 

3.99614F-07 

2- 69 

K0.O9O 

-9.4787*6-01 

-8.072156-03 

-F.00472F+04 

4.03186E-07 

2- TO 

109.0*0 

-9.556175-01 

— 7.4 19C8F-03 

-4.59983E*04 

4.O«40TE-O7 

2- 71 

119.000 

-9.627095-01 

— 6.7 60926—03 

-4.19177E+04 

4.09498F-0T 

2- 72 

m . 0*0 

-9.401395-01 

—6.0981 2E-03 

— 3.78983E*04 

4.12233E-0T 

?- 73 

11 ? .000 

—9.749**6—0! 

-5 .4111*6-03 

— 3 . 3673 rE*D4 

4.14608F-O7 

2- 74 

113.000 

-9.800026-01 

-4 # 7f,042F-03 

-2.9F14f E*04 

4.1F854E-07 

?- 7* 

} 1 >.000 

-9.84426F-01 

-4.086466-03 

-2.*?3trE*04 

4.18733E-07 

2- 76 

115 .000 

-9.881756-01 

-3.409676-03 

~2.1139<?E*04 

4.20330E— 07 

2- 77 

116.000 

-9.912456-01 

-2. 730546-03 

-UA9294E+04 

4.2U36E-07 

2- 70 

117.000 

-9. 936366— Ot 

— ? *049 55E— 03 

-1.27072E+0A 

4.22653E-07 

2- 79 

110.000 

-9.953446-01 

-1 .367156-03 

-8.47632E+03 

4.23380E-0T 

2— 80 

119.000 

-9.96370^-01 

-6.83809E-04 

-4.23961E+03 

4.238L6E-07 

2- 81 

1 20.000 

-9.967126-01 

3.044166-16 

1.88738E-09 

4.239A2E-07 

3- 1 

49.0*9 

4.994516-01 

-8 .9*6326-03 

-6.179I1E*02 

-4.34F49E-09 

?- 2 

41.000 

4. 911116-01 

-8.610316-03 

-6«61.076E*02 

-4.27293E-09 

3- 3 

42.000 

4.822146-01 

-9.170536-03 

-7.03370E*02 

-4.19S33E-09 

3- 4 

43.000 

4.727706-01 

-9*712346-03 

-7.4492TE*02 

-4.U336E-09 



STATION X 


TABLE !I? 
TORSIONAL MOOES 
ZETA-PRIME 


w> 


5 

44.000 

4,627905-01 

i- 6 

45 .000 

*■ .* 22R4E-0I 

T 

46 ,0C0 

4.41266E-01 

3- 9 

*>7.000 

4.297465-01 

3 - 9 

48.9*0 

4.17739E-01 

3 - 10 

49.000 

4.062*75-01 

3 - It 

* 0.000 

7 .922166-01 

3- 12 

*1.900 

3.7893CF-01 

3- 13 

*2.000 

?.**L14E-0l 

14 

57.000 

».59fl8?F-01 

?- 1 * 

*4.000 

?.342**F-0l 

3- i* 

5*. 000 

3.21245E-01 

■»- 17 

* 6.000 

? . 0 * 970F-01 

3 - IB 

57.000 

2.90148E-01 

7- 1 9 

*5.000 

2.740975-01 

3- 20 

59.000 

2.67736E-01 

3 - 21 

60.000 

2 .41081 F-Ol 

3- 22 

61.000 

2.'»415?E-01 

3- 23 

62.000 

2.04970E-01 

3- 24 

67.000 

1.89**3F-01 

3- 25 

* 4 . non 

1.71.92\F-oi 

26 

6 *. 00 « 

l. *40935-01 

3 - 22 

66.000 

1.36091E-01 

3- 2^ 

67.000 

1.1 7934F-01 

2 - 29 

48.000 

9.964395-02 

3 - 30 

69.000 

8.124035-02 

3 - 31 

70.000 

6.2744*5-02 

3- 32 

71.000 

4.41775E— 02 

3- 33 

72.000 

2.55604E-02 

3- 34 

77.000 

6.914245-03 

3- ?!5 

74.000 

- 1 .173975-02 

3- 36 

75.000 

-3.038C6E-02 

3- 37 

76.000 

— 4.89866E— 02 

3— 30 

77.000 

-6.753725-02 


-1.024?16-02 

-1.Q7623E-02 

-1.12693E-C2 

-1.17634E-02 

-1.22442E-02 

-1.27M2E-02 

-1 .21637F- f, 2 

-1.38P12E-02 

-1.40234E-02 

-1.44796E-02 

-1.4 01.94F-O2 

-l.*192*E-02 

-1.55483E-02 

-i.58864E-02 

-1.62066E-02 

-1.650835-02 

-1 .479135-02 

-l.70'52F-02 

-1.72998F-02 

-1.762485-02 

-1.77299E-02 

-1,791 49E-02 

-1.8O795F-02 

-1.82236F— 02 

-1.83471E-02 

-1.84497E-02 

-1.85314E-02 

-1.859215-02 

-1. 86316 E-02 

— 1.86*01E— 02 

-1.864735-02 

— 1.86234E— 02 

-1.85784E-02 

-1.B5123E-02 
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MODE ? 

OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
TORQUE TORQUE-PRIME 


1.413196+03 7*483456-10 
I *40491 6+03 9*082296-10 
1.395036+03 1.067088-09 
1.383576+03 1*224736-09 
1*37 0**6+03 1.380986-09 
1.35*956+03 1 *535676-09 
1*339826+03 1*688616-09 
1*322188+03 1*639646-09 
1.303038+03 1.988586-09 
1 *282406+03 2.135276-09 
l « 269326+03 2*279536-09 
1 .234018+03 2**21 20^-09 
1* 211 906*03 2*560138-09 
1 • 185 61E+03 2*696158-09 
1*157988*0? 2*829^28-09 
1*1 29038+03 2*958878-09 
1 « 0986 0E+03 3 *08^238-09 
1.067336*03 3*208168-09 
1*036648+03 3.327428-09 
1*000768+03 3*442908-09 
9*6*7 0 18 + 02 3 *554478-09 
9.296898+02 3*662018-09 
8.92541E+02 3*765*08-09 
8.543816+02 3.8**516-09 
0.152518+02 3.959236*09 
7*751 96F+02 4.04947E-09 
7.342628+02 4.135116-09 
6. 924956+02 4.216066-09 
6*499418+02 4*292226-09 
6.066506+02 4.363516*09 
5.626716+02 4.429056-09 
5.10O54E+O2 4*491176-09 
4.728406+02 4*547396-09 
4.271066+02 4.59B45E-09 



STATION X 


ZETA 


TABLE II* MOOE 2 

TORSIONAL MOOES OF CTLINDEX-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 

zeta-prime torque torque-prime 


uj 

O' 


3- 73 

113*000 

-5.33793F-01 

-4.9S5B9E-03 

?- 74 

113,000 

-9.38488E-07 

-4.357^eE-03 

?- 75 

114,000 

— ? .42FC8E-01 

-3.74427E— 03 

3- 76 

115*000 

-5.45945E-01 

-3.126T4F-03 

3- 77 

U*.900 

— *. t 87fe2E-01 

-Z.FO^C-E-OS 

?- 76 

117.000 

-5.F09"6E-01 

-1.BB174E-03 

?- 79 

118.000 

— 5.52526E-01 

-1.23568E-03 

3- 80 

119.000 

-5.53448E-01 

-6.28197E-04 

3- 81 

120.000 

-5.53782E-01 

-Z.71407E-17 


-3.80B79E*02 

-3.3422CE+02 

-2.87182E*02 

-2.39918E*02 

-1.92182E*02 

-l.443.27E*02 

-9.63094E+01 

-4.81B21E«-01 

-2.0BU7E-12 


4.64429E-09 
4.60A86E-O9 
4.72012E-09 
4.75002E-09 
4.77*53F-09 
4.79362E-09 
4.80727F-09 
4.81547E— 09 
4.81821E-09 


TOTAL NO. STATIONS » 203 
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FREQUENCY CYCLES PER 
FREQUENCY RAOTANS PER 

STATtPN * 


SECOND 1221. 

SECOND 7677 .70*6 

ZETA ZETA-PRTM6 


1- t 
1- 2 
1- 3 

1- 6 
1- * 
1- 6 
1- 7 

1- 8 
l- 9 
1 - 10 
1- 11 
1- 12 
!- 13 
1- 16 
1- IS 
1- 16 
1- 17 
1- 18 
1- 19 
1- 20 
1- 21 
l- 22 
1- 23 
1- 26 


0.000 . ! .938816-02 

1.000 1.936786-02 

2.000 1.930796-02 

3.000 1.920586-02 

u , 000 1.906446-02 

5.nn<) 1.88831E-02 

6.000 1.866225-02 

7.000 1.840235-02 

g .000 1 .810600-02 

9.000 1 . 77677E-02 

10. 000 1.739426-02 

11 .000 l.698*4E-02 

12.000 1 .653896-02 

13.000 1.605896-02 

14.000 1.554*36-02 

1* .000 1.49991E-02 

16.000 1.442166-02 

17.000 1.381386-02 

18.000 1.31772E— 02 

19.000 1.251306-02 

20.000 1.18226E-02 

21.000 1.110145-02 

22.000 1.0369CE-02 

23.000 • 9.60891E-03 


0. 

-4.035332-03 

-8.192216-0* 

-1. 213216-04 

-1.61367E-04 

-2.01074E-C6 

-2.40361 E-06 

-2.791456-04 

-3.173456-04 

-3.54880E— 04 

-3.91673E-06 

-4.27647E-04 

-4.627256-04 

— 4.96B35E— 04 

-5.299065-04 

-5.61867E-04 

— 3.92653E— 04 
-6.22198E-04 
-6.50442E-04 
-6.773246-04 
-7.02788E-04 
— 7.26782E— 04 
-7.492356-04 
-7. 701606-04 


TABLE II 

ES OF CYLINOER- SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
0.00 SEC 
MOOE 3 


TORQUE TORQUE-PRIME 


— 2.31432F— 08 
2.514326*02 -2.511696-08 

3. 023376*02 -2.503806-08 

?.5?192E*02 -2.49067E-08 

1.00047E*03 -2.4723*6-08 

l.2*666F*0? — 2.44882E-08 

1.49024E*03 -2.420196-08 

l.7307CE*C3 -2.386496-08 

1.967546*03 -2.34779E-08 

2.200266+03 -2.304186-08 

2.*2838E+03 -2.25576E-0S 

2.651416*03 -2.20259E-08 

2.868906*03 -2.144836-08 

3.080386*03 -2.082586-C8 

3.288*26*03 -2.01897E-08 

3.403*86*03 -1.94514E-08 

3.674456*03 * -1. 870246-08 
3.857636*03 -1.791436-08 

4.0327*6*03 -1.70887E-08 

4.199416*03 -1.622736-08 

-4.357296*03 -1.533196-08 

-4.506056*03 -1.440456-08 

-4.645386*03 -1.344696-08 

— 4.77499E+03 -1.246126-08 



138 


TABLE Ilf 
TORSIONAL MOOES 


STATION 

X 

Z6TA 

2ETA-PRIME 

1- 25 

24.000 

8. 82870F-03 

-7 .894546—04 

1- 26 

25.000 

8.030016-03 

—8.0709*6—04 

1- 27 

26. COO 

7 * 214526-03 

-8.230476-04 

1- 28 

27.000 

6.383936-03 ■ 

-8.372766-04 

1- 29 

28.000 

5.53997F-03 

-8.497046-04 

1- 30 

29.000 

4. 684436-03 

-0.60*536-04 

1- 31 

30.000 

3.019076-03 

-8. 693516-04 

1- 32 

n.ooo 

2.945726-03 

-8.764306-04 

1- 33 

32.000 

2.06622^-03 

-8.81*706-04 

1- 34 

33 o 000 

1.182306-03 

-8.650756-04 

1- 35 

3**000 

2.960696-04 

-8.866726-04 

l- 36 

35 * 090 

-5.908*36-0* 

—8.8531*6-04 

1- 37 

36.000 

-1 .476566-03 

-0.841026-04 

1- 38 

37.000 

-2.359176-03 

-8.801396-04 

1- ?9 

38.000 

-3.23*846-03 

-0.742836-04 

1- 40 

39.000 

-4. 107746-03 

—8 .655996—04 

1- 41 

40.000 

-4.970046-03 

-8.571006-04 

2- 1 

40.000 

-4.9^0046-03 

-1.296836-04 

2- 2 

41.000 

— 5.0946 2F-03 

-1.191*26-04 

2- 3 

42.000 

-5.208356-03 

-1.003^16-04 

2- 4 

43.000 

-0.311 276—03 

-9 .736376—09 

2- 5 

44.000 

403086- O'* 

— 8.61*246—05 

2- 6 

45.000 

-5.482*86-03 

-7.476 CB6-05 

2- 7 

*6 .000 

-5.552616-03 

-6.321286—0* 

2- 8 

*7.000 

-5**10016-03 

-5 .153246—05 

2- 9 

48.000 

-5.65*606-03 

-3.97*426-05 

2- 10 

49.000 

-5.689516-03 

-2.787286-05 

2- 11 

50.000 

-5. 711436-03 

-1.594316-05 

2- 12 

51.000 

-5. 721406-03 

-3.979956-06 

2- 13 

52.000 

-5 .719406-03 

‘ 7.991526-06 

2- 14 

53.000 

-5.705426-03 

1. 994636-05 

2- 15 

54.000 

-5.679*16-03 

3.1 8593 F-05 

2- 16 

55.000 

-5.641716-03 

4.37057E-05 

2- 17 

56.000 

-5.592116-03 

5. 546 06 E- 05 


MODE 3 

OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
TORQUE TORQUE-PRIME 


'4.094616fO3 -1.144946-08 
>0.003996*03 -1.041366-08 
■0.102896*03 -9.356066-09 
■0.191116*03 - 0. 278916-09 
•5 . 268476+03 -7.184*46-09 
‘5,334816*03 -6, 074946-09 
■5.389906*03 -4.952726-09 
■5.433876*03 -3, 820136-09 
>5, 466396*03 —2 . 679556—09 
5. 48746 6*03 -1.633’06-O9 
■5.497066*03 -3*639538-10 
5.490156*03 7.662546-10 
5*481 7*6+03 1 • 914666-09 
5.456866*03 3*055466-09 
5. 420566*03 4.19765E-09 
5*372916+03 5*327076-09 
5,314026+03 6*445336-09 
8 • 040366*02 6*445336-09 
-7 * 3874 26*02 6*606776-09 
6.7190! 6^ 02 6.704386-09 
6.036F*6*02 6*887866-09 
5* 34I43E + 02 7.006926-09 
4 *635 176+02 7.111326-09 
3.919196+02 7.200836-09 
3.195016+02 7*275286—09 
2*464146+02 7*334506-09 
1.728116+02 7.37837E-09 
9*884706+01 7.406006-09 
2.46767E+01 7*419716-09 
4.95*746+01 7.417136-09 
1.236676+02 7.399016-09 
1.975286+02 7.36540E-09 
2.70975E+02 7.316386-09 
3.438566+02 7.252056-09 



TABLE It, MODE 3 


TORSIONAL MODES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


station 

X 

ZETA 

ZETA-pniME 

?- 18 

57.000 

-5.53080F-03 

6.709946— C5 

2- 19 

58.000 

-5.45791E-03 

7.B59796-C5 

2- 20 

59.000 

-5.373616-03 

8.993186-05 

2- 21 

60.000 

-5.278066-03 

1.010786-0* 

2- 22 

61.000 

-«. 171466-03 

1.120126-04 

2- 23 

63.000 

-5.054046-03 

1.227126-04 

2- 24 

63.000 

-4.926046-03 

1.331*56-04 

2- 25 

64.000 

-4.787736-03 

1.43319F-04 

2- 26 

65.000 

-4.639416-03 

1.53184E-04 

2- 27 

66.000 

-4.401376-03 

1.6272BF-04 

2- 28 

67.000 

-4.313966-03 

1.719716-04 

2- 29 

68.000 

-*.137526-03 

1.807756-04 

2- 30 

69.000 

-3.952416—03 

1.892406-04 

2- 31 

70.000 

-3 .■7* ! 9C*6-03 

1.97709E-04 

2- 32 

71.ooo 

-3.657806-03 

2.049656-04 

2- 33 

72.000 

-3.349116-03 

2.12193F-04 

2- 34 

73.000 

-3.133426-03 

2.189766-04 

2- 35 

74.000 

-2.911165-03 

2.253016-04 

2- 36 

75.000 

-2.682826-03 

2.311556-04 

2- 37 

76.000 

-2.440846-03 

2.366256-04 

2- 39 

77.000 

-2.209776-03 

2.413996-04 

2- 39 

78.r»r>o 

-1.956366-03 

2.*5769F-0* 

2- 40 

75.000 

-1.718346-03 

2.496246-0* 

2- 41 

80,000 

-1.446826-03 

2.579576-04 

2- 42 

O’.OCO 

-1.212326-03 

2.557616-04 

?- 43 

82.000 

-9.552556-04 

2.580296-04 

2- 44 

83.000 

-6.962676-04 

2.597586-04 

2- 45 

8* .000 

-4.357016-04 

2.609426-04 

2- 46 

85.000 

-1.743836-04 

2.615816-04 

2- 47 

86.000 

fl.737986-05 

2.616726*04 

2-46 

87.000 

3.489606-04 

2.61216E-04 

2- 49 

88.000 

6.098116-04 

2.60212E-04 

2- 50 . 

89.000 

6.693866-04 

2.586656-04 

2— 51 

90.000 

1.12714Et03 

2.56576 E- 04 


TORQUE TORQUE-PRIME 


4.160166*02 
4.873076*02 
5.575776*02 
6.266816*02 
6.944746*02 
7.608 1 36*02 
8.255606*02 
8.885796*02 
9.49' T 39F*02 
I *00891 E*03 
1.065976*03 
1.129806*03 
1.173295*03 
1.223326*03 
1.270796*03 
1.315606*03 
1.3576fE*03 
1.396876*03 
1.433166*03 
1.466*56*03 
1.496686*03 
1.523776+03 
1.547676*03 
1.568346+03 
1.585726*03 
1.599786+03 
1.61050E+03 
1.6178*6*03 
1.621 80E+03 
1,622376*03 
1.61954E+03 
1.613326*03 
1.603T2E+03 
1.590776*03 


7.172546-09 
7.07803F-09 
6i 968706-09 
6.844786-09 
6.706*46-09 
6.554276-09 
6. 38 0276-09 
6.20891 E-09 
6.016566-09 
5.81I61E-09 
5.59*5 0E-09 
5.365686-09 
5.125646-09 
4. 874866-09 
4.613896-09 
4.343256-09 
4.06353F-09 
3. 735316-09 
3.479 1 BE-09 
3.17577E-09 
2.865726-09 
2.549666-09 
2.228276-09 
1.902226-09 
1.572196-09 
1.238866-09 
9.029456-10 
5.651 37E-10 
2.26147E-10 
-1* 13317E-10 
-4.52545E— 10 
-7.90826E-10 
-1.12745E-09 
-1.461T2E— 09 
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TABLE TI, MODE 3 

TORSIONAL NODES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
STATION X ZET4 ZETA-P»IME TOPQUE TORQUE-PRIME 


2- 52 91 .000 1.3B254E-03 

2- 53 92.000 1.635045-03 

2- 5* 93.000 1.004125-0? 

2- 55 94.000 2.129265—03 

2- 56 55.000 2.36995F-0? 

2- "7 94.000 2.49 e 67E-03 

2- *8 57.000 2.835945-0? 

2- 59 98.000 3.O6O20E-O3 

2- *0 99.000 3.278215-03 

5s 2- 81 100.000 3.489295-03 

° 2- 62 101.000 3.692065-03 

2- 63 102.000 3.889105-03 

?- 64 103.000 4.0T700F-03 

2- 65 IC4.000 4.25637E-03 

2- 66 lOf.OOO *.42*84E-03 

2- 67 104.000 4.588C*5-0? 

2- 68 107.000 4.739635-03 

2- 69 100. nno 4.081319-03 

2- 70 109. O^O 5.01 378F-03 

2- 71 110. noo *.133786-03 

2- 72 HI. 000 5. 2*3535-03 

2- 73 H2.000 5. 343245-03 

2- 74 113.000 5.43131F-03 

2- 75 114.000 5.50802F-03 

2- 76 115.000 B . *73205-03 

2- 77 116.000 5.626715—03 

2- 70 117.000 *.668445-03 

2- 79 118.000 5.69833F-03 

2- 80 119.000 5.71629F-03 

2- 81 120.000 5.72228E-03 

- 1 40.000 — 4.97004E— 03 

- 2 41.000 -6.37626E-02 

- 3 42.000 — 1.22335E— 01 

- 4 43.000 -1.0O483E-O1 


2. *39505-04 1.57449E+03 -1.79293E-09 

2.50792E-04 1.554915403 -2.12038E-09 

2 .471 10E-04 1 .F32CBE403 -2.44340E-09 

2.42911E-04 1.50605E+03 -2.76131E-09 

2.382035-04 1.47686F+03 -3.07344E-09 

2.32997E-04 1.4*4585403 -3.37913E-09 

2.273035-04 1.40928E403 -3.67776E-09 

2.21 l 33F-04 1.371035403 -3.96869E-09 

2.145015-04 1.3299iE403 -4.25131E-09 

2.074205-04 1.286005403 -4.52504E-09 

1. «»9®045-04 1.23941E407 -4.789295-09 

1.919708-04 1.19022E403 -5.04353E-09 

1.83635E— 04 1.130*45403 -5.28121F-09 

1.749155-04 1.084*75403 -5. 519825-09 

1 .658295—04 1.02814F403 -5.74089E-09 

1.563965-04 9.69658E402 -5.94994E-09 

1 .466365-04 9.091448402 -6.14653E-09 

1.365695-04 8.467285+02 -6.33027E-09 

1.262155-04 7.825405402 -6.500765-09 

1.1 5599F-04 7.167145402 -6.65764E-09 

1.047405-04 6.493885402 -6.800595-09 

9.3661"'F-05 5.80703540? -6.929315-09 

8.238755-C5 5.10802E402 -7.043535-09 

7.094085-05 4.398335402 -7.143005-09 

5.934565-05 3.679435402 -7.227535-09 

4.76262E-05 2.9*2835402 -7.296935-09 

3.580725-05 2.220CfE402 -7.351075-09 

2.391 325-05 1.48262E4Q2 -7.389816-09 

1.19691E-03 7.420865401 -7.41310E-09 

— 1.45815F-18 -9.0*0536-12 -7.420875-09 

-5.88011E-02 -4.50999E*03 1.21836E-10 

-5.86822E-02 -4. *00875403 1.69138E-09 

— 5 .83602E— 02 -4.47617E>03 3.24507E-09 

— 5.76362E— 02 -4.43598E403 4.78754E-09 
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TABLE !!♦ MQ06 3 

TOR SI ONAL MODES OP CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
STATION X ZfTA Z6TA-PRIM6 TORQUE TORQUE-PRIME 


- 5 44.000 — 2.380C7E— 01 -5.711206-02 -4.380436*03 6.313436-09 

- 6 4 C .000 -2.947C8E-01 -5.419016-02 -4.309736*03 7.817486-09 

- 7 46.000 -3.503e8E-01 -5.507376-02 -4.22419E+03 9.294*86-09 

- 8 47.000 -4.Q4056E-O1 -5.37667E-02 -4.123856*03 1.07393E-08 

- 9 48.000 -4.57923E-01 -5 .227356-0? -4.009326*03 1.214706-08 

- 10 49.0"'' -5. 094046-01 -5.05994E-02 -3.880926*03 1.35I26E-08 

- 11 50.000 -9.59? 236-01 -4.87*016-02 -3.739055*03 l. *83146-08 

- 12 51.000 -6. 069066-01 -4.67321E-02 -3.584316+03 1.60989E-09 

- 13 52.000 -A.52 e R9E-01 -4.45*236-02 -3.417126*03 1.731076-08 

- 14 53.000 -6.960125-01 -4.22183E-02 -3.238106+03 1.84626E-08 

- 15 54.000 -7.3 T C276-01 -3.97382E-C2 -3.047885*03 1.95505E-08 

-16 55.000 — 7 .7*491E-01 -3.712045-02 -2.847106*03 2.05708F-08 

- 17 56.000 -8.1 12706-01 -3.43742E-02 -2.63647E*03 2.151996-08 

- 18' 57.000 — 8.44242E— 01 -3.190906-02 -2.416715*03 2.239465-08 

- 19 58.000 -8.7*2915-01 -2.85347E-02 -2.788*96*03 2.319166-08 

- 20 *9.0"0 -9. ''13145-01 -2.54617E-02 -1.9*2896*03 2.390845-08 

- 21 40.000 -9.292175-01 -2.230055-02 -1.710*26*03 2.454256-08 

- 22 61 •0 r 'O -9.459176-01 -7 .906216-02 -1.4620*6*03 2.509166-08 

- 23 62.000 -9.633*46-01 -1.575775-02 -1.208606*03 2.555396-08 

- 24 63.000 -9.774356-01 -1.239876-02 -9.50968E+02 2.592776-08 

- 25 64.000 -9.881446-01 -8.996826-03 -6.900476*02 2.621176-08 

- 26 65.000 -9.9f*32E-01 -5.56376E-03 -4.267376*02 2.640*06-08 

- 27 66.000 -9.99274E— 01 -2.111486-03 -1.619486*02 2.650706-08 

-28 67.000 -9. 99658E-01 1.348l«5-03 i.0340'6+02 2.69171E-08 

- 29 68. non -9.965816-01 4.8"311E-03 3.68394E*02 2.643556-08 

- -*0 69.000 -9.900996-01 8.241475-03 6.321126*02 2.626246-08 

- 31 70.000 -9.801016-01 1.16513E-02 8.936436*02 2.599846-08 

- 32 71.000 -9.667556-01 V.502086-02 1.152086*03 2.564445-08 

-33 72.000 -9.50C626-01 1.033835-02 1.406536*03 2.520166-08 

- 34 73.000 — 9.30C81E— 01 2.15924E-02 1.656126+03 2.46715E-08 

-35 74.000 -9.068816-01 2.477175-02 1.89997E+C3 2.405616-08 

- 36 75.000 -8.805416-01 2.78653E-02 2.137246*03 2.335746-08 

- 37 76.000 -8.511536-01 3.08625E-02 2.36712E+03 2.25779E-08 

- 38 77.000 -8.188186-01 3.375286-02 2.588816+03 2.17201E-08 



TABLE lit MODE 3 


TORSIONAL NOOES OF CYLINOER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

• ZETA 

Z6TA-PRIMF 

. TOPQUE 4 

TORQUE-PRIHE 

3- 39 

78,000 

-7.036ARE-OI 

3.652636-02 

2.801636*03 

2.078736-08 

3- 40 

79.000 

-7.4«T*0E-O1 

?. 9173*6-02 

3 • 004666*03 

1.970746-08 

?- 41. 

80*000 

-7.0f>305F-0I 

4 • 168496-02 

3.197196*03 

1. 070916-08 

3- 4? 

81.000 

-6.F2401E-01 

4.405215-02 

t 3.378756*03 

1 • 757106-08 

3— 43 

82.000 

-6. J 7203E-01 • 

4.6 2668E-02 

3.5*8626*03 

1.637216-08 

3- 44 

03.OCO 

-5.696*<JF-01 

4.832 1 46-02 

3.706206*03 

1.511656-08 

3- 45 

04.000 

-5. 2O062F-OI 

5. 020876-02 

3 . 850966*03 

1.380856-08 

3- 46 

8*. 000 

-A.69A53E-0I 

5.192226—02 

3.982386*03 

1.245286-08 

3- 47 

86.000 

-4.16719E-01 

5.345606-02 

4.100036*03 

1.105406-06 

3- 45 

87.000 

— ? .625 A 2F— 01 

5.480485-02 

4.202486*03 

9.616886-09 

3- 49 

88.000 

-3.07111E-01 

*.59f *>96-02 

4.292386*03 

8.146496-09 

2- r 9 

89.000 

— 2. f 0616F-01 

5.692936-02 

4.266426*03 

6. 6*7896-09 

3- 51 

90.0C0 

-1.93253E-01 

5.769766-02 

4.425356*03 

5.126276-09 

3- 52 

9! .00" 

“1.75221E-01 

5. 02662E-O2 

4.468966*03 

3.58*916-09 

3- 53 

92.000 

-7.6721AE-02 

5.863316-02 

4.497106*03 

2.035136-09 

3- 54 

93.0*0 

-1.79^*75-02 

6.8*9706-02 

4.509676*03 

4. 76296E-10 

3- 55 

94.000 

4.'>072AE-O2 

5.075746-02 

4.506646*03 

-1.084196-09 

3- 56 

9 C .*00 

9.9 K 591E-D2 

5.0*1*56-02 

4.488006*03 

— 2 * 64C92 E-09 

2- 57 

96.000 

1.5 7< ?0tE-0T 

5.806906-02 

4.453826*03 

-4.188536-09 

3* 58 

97.0*0 

2.15657E-01 

5.742246-02 

4. *0*2*6*03 

-5.7216*6-09 

3- 59 

99.000 

2.727A7E-0! 

5.657726-02 

4.339*15*03 

-7.23*946-09 

3- 60 

99.009 

2.280 C7 ?-O1 

* .553606-02 

4.2*966 6+0? 

-8.723276-09 

3- 61 

100.000 

?.B382'?F-01 

5.43*276-02 

4.1 64966+03 

-1.018136-08 

3- 62 

XC1.000 

A.77459F-01 

5.288136-02 

4.0*5956+03 

-1.160476-08 

3- 63 

102.000 

A.09504F-O1 

5*1 27706-02 

3.537896+03 

— i • 29B68F— 08 

?- 64 

103.000 

?. 499146-01 

4.949516-02 

3.796226*03 

-1% 432456-08 

3- 65 

104.000 

5.88F75E-01 

4*754 106-02 

3.6*6416*03 

-1.561 27E-08 

3- 66 

10*.000 

6.35099F-01 

4.542416-02 

3.483986*03 

-1.684686-08 

3- 67 

106.000 

6.79425E-01 

4.314906-02 

3.309*96*03 

-1.802266-08 

3- 68 

107.000 

7.21399E-01. 

. 4.072*65-02 

3.123546*03 

-1.913606-08 

3- 69 

108.000 

7.60878E-01 

3.81*935—02 

2.926786+03 

-2.018326-08 

3- 70 

109.000 

7.97720E-01 

3.546186-02 

2.719886+03 

-2.116056-08 

3- 71 

110.000 

8.31802F-01 

3.264166-02 

2.503586*03 

-2.206466-08 

3- 72 

UI.OCO 

8*63005E-01 

2*970846-02 

2.278606*03 

-2.289236-08 
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TABLE lit MODE 3 


TORSIONAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION X 


ZETA 


ZETA-PRTME 


TORQUE TORQUE-PRIME 


- 73 

- 74 

- 7? 

- 76 

- 77 

- 78 

- 79 

- 80 
- 81 


112.000 

113.000 

114.000 

u;«ooo 

116.000 

117.000 

118.000 

119.000 

120.000 


8.91 221F-01 
9.16??3F-01 
9.3 83 1 2F-01 
9.57023F-01 
9.72 t 22E-01 
9.844*5E-ni 
9.93C80E*r01 
9.98268E-01 
I . OOOOOE+OO 


2.66723E— 02 
2.35439E-02 
2.03340F-02 
1.70537E-02 
1 . 371446-02 
1.03275E-02 
6.90496E-03 
3.45847E-03 
1.01032E-13 


2 . 0*574003 
1 • 80579F+03 
1.R5960F403 
1 • 30800E*03 
1.0*188E*03 
7.921 1 2E+02 
5.29604E402 
2.65261E402 
7.74903E-11 


—2. 36407E-08 
-2.43074E-08 
-2.48899E-08 
-2. 5386?E— 08 
-2.57947E-08 
-2 . 611 39E-08 
-2.63427E-08 
-2.64803E-08 
-2*65262E-08 


TOTAL NO 


STATIONS - 203 



TOP SIGNAL I 
T 

FREQUENCY CYCLES PER SECCND 1399.407 

FREQUENCY RADIANS PER SECOND 8792.7318 


STATION 

X 

ZETA 

ZETA-PRIME 

1- 1 

0*000 

9.914CBE-01 

0. 

1- 2 

1 .000 

9.90C49E— 01 

-2.719766-03 

1- 3 

2.000 

9. 8*97 If— 01 

—5 *432076-03 

1- 4 

3.000 

9.79186E— 01 

-8.129466-03 

1- 5 

4.000 

9.69T14E-01 

-1.0804*6-02 

1- 6 

*. 0"0 

9*9 7*79E— 01 

-1.346906-02 

1- 7 

4.000 

9.*2B16F-01 

-1 .6 0* 866-02 

1- 8 

7.000 

9.2S444E-0J 

-1.862296-02 

l- 9 

8,000 

9,0* C 77E-01 

-2 • 1 1?6 26-02 

I- 10 

9 . 0 on 

8.03193E-O1 

-2.3*9156-02 

x- n 

19.900 

8.58390F-OI 

-2.598216-02 

1- 12 

n .ooo 

B.31231E-C1 

-2.83013E-02 

1- 13 

72.000 

8.01789E— 01 

-3.054286-02 

1- 14 

13.000 

7.701*7E-01 

-3.2700*6-02 

l- 1? 

14.000 

7.36390E-01 

-3.47684E-02 

1- 16 

. 1*4000 

7.00611E-01 

-3.674096-02 

17 

16,000 

6.629106-01 

-3.861 2*6—02 

1- 18 

17.000 

6.233886-01 

-4.037816-02 

1- 19 

18.000 

R * B2155E— 01 

-4.203296-02 

1- 20 

19.000 

5. 393236-01 

-4.367236—02 

1- 21 

20.000 

4. 9501 IE— 01 

-4. 499206-02 

1- 22 

21.000 

4.49340E— 01 

-4.638836-02 

1- 23 

22.000 

4.02435E-01 

—4.74576 6—02 

1- 24 

23.000 

3.54426E— 01 

-4.849646-02 


TABLE tl 

:$ OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 
0.00 SEC 
NODE 4 


TORQUE TORQUE-PRIME 


0. -1.68625E-06 
-1.68625E*04 -1.68S9AE-06 
-3.36T88E*04 -1.67701E-06 
-«.0*0?7F*04 -1.66547E-06 
-6.69882E*0* -1.64935E-06 
-8.23898E*04 -1.62871F-06 
-9.95626E*C4 -1.60360E-06 
-1 . If 4f?EfO R -l.«7409E-06 
-1.3104*E*0* -1.540Z6E-06 
-1. *62678*05 -1.50219E-06 
-1.61089E*05 -1.46001E-06 
-1.75468E*05 -1.41381E-06 
-1.8936fE«-05 -1.36374E-06 
-2.0274?E*0F -1.30992E-06 
-2.155F4E+05 -1.25250E-06 
-2.277?3E»05 -1.19165E-06 
-2.39397E*0F -1.12752E-06 
— 2.50344E*05 -1.06030E-06 
-2.60604E*05 -9.90167E-07 
-2.70148E705 -9.17317E-07 
-2.789«1E*05 -8.41948E-07 
-2.86987E*05 -7.6*268F-0T 
-2.94236E+0* -6.84489E-07 
-3.00678EP05 -6.02831E-07 



145 


STATION X 


TABLE lit HOOE 4 

TORSIONAL NODES OF CYLINDER-SHAFT CONFIGURATION FOR NUHERICAL EXANPLE 
ZETA ZETA-PR1HE TORQUE TORQUE-PRIME 


1- 2*5 
1- 2f 
1- 2T 
1- 28 
1- 29 
l- 30 
1- 3t 
1- 32 
1- 33 
1- 3* 
l- 35 
1- 36 
1- 37 
l- 38 
I- 39 
1- 40 

1- 41 

2 - 1 

2 - 2 
2 - 3 

2- 4 

2- 5 

2 - 4 

2- 7 

2 - 8 
2- 9 

2 - 10 
2 - 11 
2 - 12 
2- 13 
2- 14 
2- 15 
2- 14 
2- 17 


24.000. 

2 K .000 

24.000 

27.000 

28.000 

29.000 

30.000 

31.000 

32.000 

33.000 

?.<> .000 

35.000 

34.000 

37.000 
38. f>00 

39.000 

40.000 

40.000 

41 .000 

42.000 

43.000 

44.000 

43.000 

44.000 

47.000 

46.000 

49.000 

50.000 

* 1.000 

82.000 

33 .000 

54.000 

**.000 

36.000 


3.05447E-01 
2.55422F-01 
2.05099E-01 
1.540136-01 
1.02504E-01 
5.07135E-02 
-1.216316—03 
-5.314296-02 
-1. 04924 E-01 
-1.544176-01 
-2.074806-01 
— 2.57974E— 01 
-3.07740E-01 
-3.567016-01 
-4.046646-01 
-4.515156-01 
-4.971276-01 
-4.971276-01 
-5.41887E-01 
-5.851596-01 
-4.268256-01 
-fc. 647706-01 
-7.048856-01 
-7.4IC65E-01 
-7.752116-01 
-8.072286-01 
— 8.37030E— 01 
— 8.44574E-01 
—8.896646—01 
— 9.127*3E-01 
—9.325366—01 
-9.50180E-01 
-9.66175E— 01 
-9.77541E-01 


-4.94022E-02 

— 5 .01724E-02 

-5.08P48E-02 

-5.12978E-02 

-5.164996-02 

-5.186036-02 

-5.192836-02 

-5.18537E-02 

-5. 1.636 86-02 

-5.12781E-02 

— 5 .07787E— 02 

-5.013986-02 

-4.9343*6-02 

-4.845146-02 

-4.740646-02 

-4.62312E-02 

-4.49291E-02 

-4.54417F-02 

-4.401566-02 

-4.246866-02 

-4.0805 IE-02 

-3. 932955-02 

-3.714686-02 

-3.51621E-02 

-3.308096-02 

-3.090896-02 

-2.86520E— 02 

-2.631646-02 

-2.390866-02 

-2.143525-02 

-1 .890296-02 

-1.431 87E-02 

—1 .368976—02 

-1. 102316-02 


-3.062946*05 
-3.110696*05 
-3.149906*0* 
— 3.180*6E*05 
-3.20230E+05 
-3.215346*05 
-3.219556*05 
-3.214936*05 
—3. 20148E*05 
-3. 179246+05 
-3.14828E*0* 
-3.108676*05 
-3.060536*05 
-3.003986*05 
-2.939196+05 
-2.866336*05 
-2.785616*05 
-2.8173eE*05 
-2 . 72897E+05 
-2.633 05E+05 

-2. e 299?E+06 
-2.419836+05 
-2.303106+05 
-2.180056*05 
-2.031026*05 
-1. 916356*05 
-1.774426*05 
-1.63162E*05 
-1.482336*05 
-1.328986*05 
-1.171966*05 
-1.011766*05 
-8.487636*04 
-6.834356*04 


-5.195196-07 
-4.34779E-07 
-3.488476-07 
-2.619666-07 
-1.743466-07 
-8.62570E-08 
2.068786-09 
9.C38906-08 
1.784616-07 
2.660446-07 
3. 52896E-07 
4.387806-07 
5.234596-07 
6.06702E— 07 
6.882796-07 
7.679676-07 
8.455466-07 
8.465466-07 
9.21677E-07 
9.952776-07 
1.066156-06 
1.134096-06 
1.19C925-06 
1.260456-06 
1.318*36-06 
1.37299E-06 
1.423686-06 
1.470466-06 
1.613206-06 
1.551796-04 
1.586126-06 
1.616106-06 
1.64163E— 06 
1.662676—06 



TABLE II* HCDE 4 


TOU SIGNAL MODES OF CYLINDER-SHAFT CONFIGURATION EOR NUMERICAL EXAMPLE 


STATION 

X 

ZFTA 

ZETA-PR1NF 

TORQUE 

TOPQUB-PRIHE 

2- 18 

57*000 

-9.872248-01 

-8.32630F-03 

-5.162316*04 

1 *679148*06 

2- 19 

50*000 

-9.941968-01 

-5.60660F-03 

-3,476098*04 

1.690996-06 

2“ 29 

59.000 

-9.984395-01 

-2.871498-03 

-1.789335*04 

1.6982)0-06 

2- 21 

60.000 

-9.99941E-01 

—1 .285065-04 

-7.96736E+02 

1.70077E-06 

2- 22 

61 .000 

-9.986978-01 

2.614848—03 

1.62120E+04 

1.698660—06 

2- 23 

67.000 

-9.94713E-0! 

5.351018-03 

3,317626*04 

1.691870-06 

2- 24 

43.000 

-9.87997E-01 

8.072508—03 

5.00*958*04 

1 .6*04*56-06 

2- 25 

64.000 

-9. 7857CE— 01 

1.07718E-02 

6.678546+04 

1.664420-06 

2- 26 

6*5.000 

-9.664568-01 

1.34416F-02 

8.33380F+04 

1.643810-06 

2- 27 

66.000 

-9.518R8E-01 

1. 40745?- 02 

9 . 966 18E*04 

1.618706-06 

2- 28 

67.000 

-9.343C8F-01 

1.866325-02 

1.157125*05 

1 . 689*1 3E—06 

2- 29 

66*000 

—9. ’43648-01 

2.1 2007E-02 

1 .314438*05 

1 . 555216-06 

2- 30 

69.000 

-8.91999E-01 

2.36801E-02 

1.468166*05 

1.517026-06 

2- 31 

70.000 

-8.670058-01 

2.60944E-02 

1.61785E*05 

1.474640-06 

2- 32 

7 1 .000 

-8.39727E-01 

2.043715-02 

l • 7631 0E*05 

1.428256-06 

2- 33 

77.H0O 

-8.101338-01 

3.07017E-02 

1.903516*05 

1.377920-06 

2- 34 

73.000 

-7. 78320E-01 

3.288218-02 

2.03869E+05 

1.323020-06 

2- 35 

74.000 

— 7.4*370E-0r 

3.A9722E-02 

2.16827F+05 

1. 266076-06 

2- 36 

7 C .000 

—7 . 08377E-01 

3.696638-02 

2. 291918*05 

1.204056-06 

2- 37 

76.000 

-t.^OAIOE-OI 

3.88 e 8BE-C? 

2.409258*05 

1 . 14033E-06 

2- IB 

77.000 

-6.306408-01 

4.0444fl c -02 

2.519988*08 

1.072676-06 

2- 39 

78.000 

-5.89l e lE-Ol 

4.23191E-0? 

2.623798*05 

1.092076-06 

2- 40 

79.000 

-5.45023E-01 

4. 3877-» c-02 

2.720398*05 

9.287136-07 

2- 41 

80.^00 

-E.^notE-Ol 

4.53151E-C2 

2.809538*05 

8.528106-07 

2- 42 

8! .000 

-4.55394E-01 

4. 64284 E— 02 

2.89096E+05 

7.745656-07 

2- 43 

82.0C0 

-4. 081418-01 

4.78138E-02 

2 .964*55*05 

6.941946-07 

2- 44 

83.000 

-3.597*8E-0t 

4.88678E-0? 

3. 029818+05 

6.119176-07 

2- 45 

6^.000 

-3.L0496E-01 

4.97878E-02 

3.08484E+05 

5.279606-07 

2- 46 

85.000 

-2.6-0193E-01 

5.057105-02 

3,135*05*05 

4.42*536-07 

2- 47 

86.0C0 

-2.0936SF-01 

5.121858-02 

3.17536 E*05 

3.559326-07 

2- 48 

B7.000 

-1.87762E-01 

5.171 93E-02 

3.2046CE+05 

2*683336-07 

2- 49 

88.000 

-1.05927E-01 

5.208118—02 

3.229038*05 

1.799970-07 

2- 50 

09.000 

-5.36003E-02 

5.230008—02 

3.242608*05 

9. 116706-00 

2— 51 

90*000 

-1.226T8E-03 

5.23753E-02 

3.247276*05 

2.086596-09 



TABLE lit MODE 4 


TORSIONAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION X 


?ETA ZETA-PR IRE TORQUE TORQUE-PRIME 


-J 


2- 52 

91 *000 

5.115026-02 

5. 230686-02 

3.243026+05' 

-8.699976-08 

2- 53 

92,000 

1.033876-01 

5 .2094 BE— 02 

3. 22 9*8 66*05 

-1.758476-07 

2- 54 

92.000 

1.0.5 34C6-O1 

5.173976-02 

3 *207866+05 

-2.6421 26-07 

?- 55 

9*. 000 

?. 06867£— 01 

5.1 24268-02 

3.177046*05 

-3. 518526-07 

2- 56 

95.000 

2.578206-01 

5.060486-02 

3 .137506+05 

-4.385276-07 

2- 57 

96.000 

3 *08 n 76E-01 

4.982816-02 

3.0893*6*05 

-5.239976-07 

?- 00 

97.000 

?. 074826-01 

4.891466-02 

3.022706+05 

-6.000296-07 

2- 59 

98.000 

4. Of 9066-01 

4.786666-02 

2. 967746+05 

-6.903926-07 

2- 60 

99.000 

4.53 2166-01 

4.668766-02 

2.894636+05 

-7.700606-07 

2- 61 

100.000 

4.992826-01 

4.538026-02 

2.813576+05 

-8.492126-07 

2- 62 

101.000 

5.4397SE-01 

4.394036-02 

2.724796*05 

-9.252336-07 

2 - 63 

102.000 

5 • 87180F-01 

4.239576-02 

2.428536+05 

-9.987146-07 

2-* 6 4 

103.000 

6.287706-01 

4.072676-02 

2.525066*05 

-1.069456-06 

2- 65 

1C*. ''CO 

6.684346-01 

3.894595-02 

2.41*656*05 

-l • 137256-06 

2- 66 

105.000 

7.046636-01 

3*705826-02 

2.257616*05 

-1.201946-06 

2- 67 . 

106.^00 

7**27026-01 

3.006885-02 

2.174266*05 

-1.263326-06 

2- 68 

107.000 

7.768C2E-01 

3. 298306-02 

2.044906*05 

-1,321246-06 

2— 69 

108.000 

8 .087195— 01 

3.080686-02 

1.910026*05 

—1 .375526-06 

2- 70 

109.000 

8 • ? 84176-01 

2.B54596-02 

1.769856*05 

-1.426046-06 

2- 71 

110.000 

8. 65813E-01 

2.620676-02 

1.624826+05 

-I. 472636-06 

2- 72 

111.000 

8.908326-01 

2.379066-02 

1.4753 2F + C5 

-1.515196-06 

2- 73 

1 12.000 

9.134056-01 

2.131 91 E-02 

1.321786*05 

-1.653586- 06 

2- 74 

1 13 *000 

9.334726-01 

1 .87B416-C2 

1.164616*05 

-1.587716-06 

2- 75 

114.000 

9 .509756—01 

1 .619756-02 

1.0042*6+05 

— 1 • 617486—06 

2 - 76 

115.000 

9.6586 66—01 

1.356646-02 

8.411176+04 

—1 .642816-06 

2- 77 

116.000 

9.781106-01 

1.089816-02 

6.756826+04 

-1.661636-06 

2- 78 

117.000 

9.876666-01 

8.199876-0? 

5.083926+04 

-1.679896-06 

2- 79 

lie.noo 

9.945116—01 

5.479126-03 

3 • ?9TC c 6+04 

-1.691536-06 

2- 00 

119.000 

9.90*266-01 

2.743336-03 

1.700866+04 

-1.698536-06 

2- 81 

120. nno 

l.OOOCOE+OO 

1.391836-15 

8.629376-09 

-1. 700876-06 

?- 1 

40.000 

-4.97137E-01 

4*143316-02 

3.177806+03 

1. 729536-08 

3- 2 

41.000 

-4.545666-01 

4.359416-02 

3.343626+03 

1.581466-08 

3- 3 

42.000 

—4.0994 16—01 

4.555716-02 

3.494186+03 

1.426206-08 

3- 4 

43.000 

-3. 634546-01 

4.731326-02 

3.628086+03 

1. 20447E— 00 



TABLE lit "ODE * 

TORSIONAL NODES OF CYLINDER-SHAFT CONFIGURATION FOR NUNERICAL EXAHPLE 


STATION X 


ZfTA ZETA-PRIHE 


TORQUE TORQUE-PRINE 


00 


-a_ * 

44*ono 

-3.153175—01 

3- 6 

4 C .030 

-2.65747F-01 

3- 7 

46.000 

-2.149706-01 

3- B 

47.000 

-1.63217E-01 

?- 9 

48.000 

-1.107236-01 

3- 10 

49 • 0 A 0 

-5.772A8E-02 

3- 11 

50.000 

-4.46*64F-03 

3- 12 

51.000 

4.881606-02 

3- 13 

52.000 

1 .018756-01 

2- 14 

53.000 

1 . e 44 72E-01 

3- 15 

*4*000 

2.057586-01 

3- 16 

55.000 

2.573276-01 

3- 1? 

54.000 

3.071 17E-01 

3- 18 

57.0^0 

3 .* s 5146-01 

3- 19 

fp.oro 

4.022866-01 

3- 20 

59.000 

4. 472516—01 

3- 21 

60.000 

4. 901756-01 

3— 22 

61.000 

5.308746-01 

3- 23 

42.000 

5.691636-01 

3- 24 

63.000 

6. 0*86 66-01. 

?- 25 

64 # noo 

6.378246-01 

3- 26. 

6*. 000 

5.6788*6-01 

2- 27 

66.000 

' 6.959136-01 

3- 28 

67.000 

7.1878*6-01 

3- 29 

68.000 

7.3939*E— 01 

2- 30 

69.000 

7.565456-01 

3— 31 

70.000 

7.70*616-01 

3- 32 

71.000 

7.807776-01 

3— 33 

72.000 

7.87*486—01 

3- 34 

73.000 

7.907476-01 

3- 35 

74.000 

7.90347E-01 

3- 36 

75.000 

7. 863616-01 

3- 37 

76.000 

7.76805E— 01 

3- 38 

77.000 

7.677126—01 


4.88646E— 02 
5. 017406-02 
5.125576-02 
5.21245E-C2 
5.27466E-02 
5.312926-02 
5.32706E-02 
5.31700E-02 
5.282B0F-02 
f .22*616-02 
5.142696-02 
5.077*26-02 
4.909276-02 
A."M58B3F-P2 
4.58677E-02 
4.393896-02 
A. 181055-02 
3.949236-02 
3.69947F-02 
3.432916-02 
3 . 150755-02 
2.8543CE-02 
2.54487F— 02 
2. 273896-02 
1.892816-02 
1 .55317E-02 
1.205396-02 
8.54177F-03 
4.980826-03 
1.39722E-03 
-2.1927’E— 03 
— 5.7727FE— 03 
— 9.32657E— 03 
-1.28381E-02 


3.7*710E*C3 
3.8*8306*03 
3.93202E+03 
3.99790E*03 
A. 04561 E*03 
4.074966*03 
4.085806*03 
A.C7809E+03 
4.051856*03 
4.00722E*03 
3.944396*03 
3.853556*03 
3.765356*03 
3.649576*03 
3.518016*03 
3.370076*0? 
3.206836*03 
3. C29C2E*03 
2.837456*03 
2.63301E+03 
2 .416606*03 
2.189226*03 
l.S5189E*03 
1.705706*03 
1.451756*03 
1.191236*03 
9.252916*02 
6.4*1*5F*02 
3.82924E*02 
1.07156E502 
—1.681806*02 
-4.427646*02 
-7.153396*02 
-9.846666*02 


1.09700F-08 
9.245A6E-09 
7.478925-09 
5.67840E-09 
3.85209E-09 
2.00827E-09 
1.55327E-10 
—l .69833E-09 
-3.5*4296-09 
-5.37*166-09 
-7.1795AE-09 
-B.95252E-09 
-l. G6848E-08 
-1.23685E-08 
-1.39960E-08 
-1. 556016-08 
-1.7053*6-08 
—1 . 8* 694E-08 
—1 .9901*5-08 
-2.10436F-08 
-2.21902E-08 
-2.2236CE-08 
-2.41763E-08 
-2.E0069E-08 
-2.57239E-0B 
-2.632406-08 
-2.680476-08 
-2.716366—08 
-2.73992E-08 
-7.7*1036-08 
-2.749656-08 
-2.735796-08 
-2.70950E-08 
-2.670916-08 
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TABLE II* MODE 4 


T0» St ON AL MOOES OF CYLINOEB*»SMAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

ZET4 

Z6TA-PRIME 

TORQUE 

TORQUE-PRIME 

3- 39 

78.000 

7.831338-01 

-1 .629136—02 

-t • 249526*03 

-2.620186-08 

3- 40 

79*000 

7.351348-01 

-1.967056-02 

-1.508716*03 

—2 .557566-08 

3- 41 

80 • OCO 

7.13756E-01 

-2.296046-02 

-1 • 76104 E*03 

-2.483336-08 

3- 43 

87. #000 

6.-892176— 01 

—2 .61461 E— 02 

—2.005386*03 

-2. 39787E-08 

3- 43 

82.000 

6.615C7E-01 

-2.921316-02 

-2.240626*03 

-2.30141E-08 

3- 44 

87.000 

6.307946—01 

*3.214746-02 

—2. 465676*03 

— 2. 19456E-08 

3- 4* 

84.000 

5.97216E-01 

-3.493586-02 

-2.67954E+03 

-2.077746-08 

3- 46 

85 .000 

5.609246-01 

—3 .7565*6—0? 

-2.88124E+03 

-1.951496-08 

?- 47 

86 ."90 

5. 220886-01 

-4.00246 E-02 

-3 .0698*6*03 

-1.816376-00 

?- 40 

87. "00 

4.0O879E-O1 

— 4. 23020E— 02 

-3.244526*03 

-1 • 67300E— 08 

?- 49 

88.000 

4.374876-01 

-4.438746-02 

-3.404476*03 

-1.522046-08 

3- 50 

89.000 

3 • 92 IC7E-01 

—4.6271 l E-02 

-3.548956*03 

-l. 364166-08 

3- 51 

90.000 

3.44947E-01 

-4.794486—02 

-3.677316*03 

-1.20009E-08 

3- 52 

91.000 

2.962206-01 

-4.940076-02 

-3.788986*03 

-l. 030566-08 

3- 53 

92.000 

2.461476-01 

—5 .06323E-02 

—3.6834*6*03 

—8.563*76-09 

?- 54 

93.000 

l. 949566-C1 

-5.163406-02 

-3.960276+03 

— 6 *782626-09 

3- 5*. 

94.000 

1.428805-01 

— * • 2401 26-"2 

-4.019126+03 

— 4. 97087E-09 

3— 56 

95.000 

9.015515-02 

—6.293 046—02 

-4.0*9716+02 

-3. 134546-09 

3- 57 

96.000 

3.702026-02 

-5.321936-02 

-4.081876+03 

-1.287966-09 

?- 58 

97.000 

-1.623316-02 

-5.32666E-02 

-4.085496*03 

5.664986-1 0 

3- 59 

98.000 

-6.9*1286-02 

-5. 30719E-02 

-4 • 07056 6+C3 

2.418306-09 

3- 60 

99.000 

-1.224276-01 

-5.263626-02 

-4.O3715E+03 

4.259296-09 

3- 61 

100. oco 

-1.747886-01 

-5*196156-02 

-*•585406+03 

6.080876-09 

3- 62 

101.000 

-2.263516—01 

-5.106086-02 

-3.9!56«;e*C3 

7.074046-09 

3- 63 

102.000 

-2.768886-01 

-4.99083E-02 

-3.827926+03 

9.63307E-09 

3- 64 

103.000 

—3.261696—01 

-4.863926-02 

—3* 722516 + 03 

1.134766-08 

?- 65 

104.000 

-3.739686—01 

-4.694966-02 

-3.600996+07 

l.?t>10«36-08 

3- 66 

105. oco 

-4. 200696-01 

-4.514686-02 

-3.4 6272 E*C3 

1. 461446-00 

3- 67 

l Of .000 

-4.642646-01 

-4.313906-02 

-3.308726*03 

1.615196-08 

3- 68 

107.000 

-5. 06350E-01 

-4.09353E— 02 

-3. 1397CE+03 

1.761616-08 

3- 69 

108.000 

— 5.46136E— 01 

-3.854576-02 

-2.956416+03 

1.900036-08 

3- 70 

109.000 

-5. 83443E— 01 

—3. 59810 E-02 

-2. 7597C6+C3 

2.029836-08 

3- 71 

110.000 

-6. 181016-01 

-3.325296-02 

— 2.55046E+03 

2.150406-08 

3- 72 

111.000 

-6.49952E-01 

-3.037386-02 

- 2 . 329645+03 

2.261216-08 



TABLE lit MODE 4 

TOP SIGNAL MOOES OF CYLINDER-SHAFT CONFIGURATION FOR NUMERICAL EXAMPLE 


STATION 

X 

Z6TA 

2ETA-PRIME 

TOPQUE 

TORQUE-PRIME 

3- 73 
3- : ? * 
?- 7* 

3- 76 
3— 77 
3— 78 
3- 79 
3- 80 
3- 81 

112*000 

113.000 
114. ''OO 
U^onn 

116.000 

117.000 

118.000 

119.000 

120.000 

-6;79952E-01 

-7.94669F-91 

-7.272866-01 

-7.4-65016-01 

-7.625256-01 

-7.745876-01 

-7.839306-01 

-7.893126-01 

-7.91U0E-01 

-2.73*676-02 
-2.421*46-02 
—2.096416—02 
-1.761766-02 
-1.419116-02 
-1. 07001 E-02 
-7.160566-03 
— 3.58844E— 03 
2.331996-16 

-2.098236+01 
-1.857206+03' 
-1.60T92E+03 
-1.251266+03 
-V. 089456+02 
-8.20691E+02 
— 5.492C8E+02 
-2.75230E+02 
1.788616-11 

2.361766-08 
2.451586-08 
2.53026E— 08 
2. 59746E-C8 
2.652B6E— Q8 
2.696226-08 
2.72733E— 08 
2.746056-08 
2.75231E-08 
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SNAMl 


INCHX 

DX 

XWTN 

PtTZ 

PLTZPR 

NZAPP 

PPIT 

PITT 

NPITT 

THIN 

ZPMTN1 

DZP1 

ZPHIN2 

0ZP2 

ZPHTN3 

DZP3 . 

DTT 

PLTH 

NPZR 

MZRHtN 

DMZR 

PITZR 

PLTAE 


8 , 

0.15E+02* 

0 . 0 * 

It 

I* 

1* 

0 , 

t, 

1* 

0.4316*351072729-124* 

t* 

I* 

It 

It 

It 

tt 

0. 22373683230271-217* 
Tt 
Tt 
It 

0. 11279098072731 E-47* 

It 

0 t 

It 


PLTJG 



NMAFJG * 1* 

ftJMH » -0.4681.2856247686+249* 
DAfJG « 0.22452527121716-217* 

tFNO 


TOTAL NUNBF4 OF PLOTS - 


9 



